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#CONTEXT-FREE-SYNTAX: 


jovial- j 3-system>***” 


#DF  jovial- j 3-systein 

=>  <gap>  <jovial-j3-program>  <gap>  <optional-library> 
<optional-compools>  <defaults>  #. 


#DF  jovial-j 3-program 

=>  <optional-control-input>  <program>  #. 

#DF  optional-control-input 

= > <//NIL>  #U  <implementation-control-input>  <gap>  #. 

#DF  implementation-control-input 

=>  <'compools*>  <gap>  <gap>  <compool-name-list> 

<gap>  <•$'>  #. 


#DF  compool-narae-list 

r>  <selected-compool-name>  <$  <<gap> 
<selected-compool-name>>>  #. 


#DF  selected-compool-name 
=>  <name>  #. 

”»»*<optional-library>*»*" 


y/DF  optional-library 
=>  <#NIL> 

=>  <'library*>  <gap>  <gap> 

<$ 1<<implementation-library-procedure>  <gap>>>  #. 
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#DF  implementation-library-procedure 

=>  <optional-control-input>  <<close-subprogram>  #U 
<procedure-subprogram>>  #. 

#DF  close-subprogram 

=>  <close-keyword>  <gap>  <close-name>  <gap>  <’$'>  <gap> 
<close-subprogram-body>  #. 

#DF  close-subprogram-body 

=>  <olose-subprogram-start>  <gap>  <inner-close-body > 
<gap>  <close-subprogram-term>  #. 

#DF  close-subprogram-start 
=>  <start-phrase>  #. 

itDF  start-phrase 

=>  <'START'>  <gap>  <'$•>  #. 

#DF  close-subprogram-term 
=>  <term-phrase>  #. 

#DF  term-phrase 

=>  <'TERM'>  <gap>  <'$’>  #. 

#DF  procedure-subprogram 

=>  <procedure-head>  <gap>  <procedure-subprogram-body > 

#DF  procedure-subprogram-body 

=>  <procedure-subprogram-start>  <gap> 
<proc-statement-list>  <gap> 
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<procedure-subprogram-term>  #. 

#DF  procedure-subprogram-start 
=>  <start-phrase>  #. 

#DF  procedure-subprogram-term 
=>  <term-phrase>  #. 
"••»<optional-compools>***” 


#DF  optional-compools 
<#NIL> 

=>  <X  <<implementation-compool>  <gap>>>  #. 


#DF  implementation-compool 

=>  <compool-header>  <gap>  <compool-body>  #. 


#DF  compool-header 

=>  <'C0MP00L'>  <gap>  <name>  <gap>  <•$'>  #. 


#DF  compool-body  j 

=>  <'START'>  <gap>  <'$'>  <gap>  <$1  <<compool-element>  | 

<gap>>  > <*TERM'>  <gap>  <*$•>  j 


#DF  compool-element 

=>  <def ine-directive> 

=>  <simple-item-declaration> 

=>  <array-declaration> 

=>  <table-declaration> 

=>  <f ile-declaration> 

=>  <common-declaration> 

=>  <subprogram-declaration>  #. 
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#DF  common-declaration 

=>  <'C0MM0N'>  <gap>  <optional-common-block-name>  <•$’> 
<gap>  <begin-keyword>  <gap>  <$1 

<<common-block-element>  <gap>>>  <end-keyword>  #. 


#DF  optional-common-block-name 

=>  <#NIL>  #U  <common-block-name>  <gap>  #. 


#DF  common-block-name 
I =>  <name>  #. 

j ^ 

; #DF  common-block-element 

; =>  <siraple-item-declaration> 

i =>  <array-declaration> 

: =>  <table-declaration> 

=>  <independent-overlay-declaration> 

■ =>  <f ile-declaration>  #. 

i 

\ #DF  subprogram-declaration 

■ =>  <proc-keyword>  <gap>  <procedure-name>  <gap> 

<optional-formal-parameter-list>  <'$'>  <gap> 

<optional-template-declarations>  #.  i 


#DF  optional -template -declarations 
=>  <#NIL> 

=>  <begin-keyword > <gap>  <$ 1<<template-declaration> 
<gap>>>  <end-keyword>  #. 


#DF  template-declaration  j 

=>  <table-declaration>  #U  <array-declaration>  #U  ! 

<simple-item-declaration>  #.  j 

! 

i 

#DF  defaults  j 


grammar-5 


Page  graminar-6 

Specification  of  J0VIAL(J3) 
Context  Free  Syntax  Section 


07/05/77 
SEMANOL  Project 
Main  Syntax 


=>  <'default'>  <gap>  <' declarations ' > <gap>  <gap> 

< ? 1<<default-declaration>  <gap>>>  #. 

#DF  default-declaration 

r>  <inode-directive> 

=>  <procedure-declaration> 

i)*»»<program>***” 

#DF  program 

=>  <start-statement>  <gap>  <statement-list>  <gap> 
<term-statement>  #. 

#DF  start-statement 

=>  <'START',  '[']START'>  <gap>  <optional-origin>  <gap> 

<'$•>  #. 

#DF  term-statement 

=>  <'TERM',  ’[•]TERM’>  <gap> 

<optional-initial-statement-name>  <gap>  <’$*>  #. 


#DF  optional -initial -statement -name 

=>  <#NIL>  #U  < <initial-statement-name>  <gap>  > #. 


I #DF  initial -statement -name 

[ =>  <name> 


//DF  statement -list 

=>  <statement-list-element>  <%  < <gap> 
<statement-list-element>  > > #. 


//DF  statement-list-element 

I 


I 
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=>  <statement>  #U  <declaratiun>  #U  <directive> 
«*»»<declaration>***'' 


#DF  declaration 

=>  <data-declaration>  #U  <process-declaration> 


#DF  data-declaration 

=>  <simple-item-declaration>  #U  <array-declaration>  #U 
<table-declaration>  #U 
< independent-over lay-dec larat ion > #U 
<f ile-declaration>  #. 


”*»«< simple -item-dec larat ion >***" 


#DF  simple-item-declaration 

=>  <item-keyword>  <gap>  <simple-variable>  <gap> 
<item-description>  <gap>  <'$’> 

=>  <item-keyword>  <gap>  <simple-variable>  <gap> 
<item-description>  <gap>  <'P'>  <gap> 
<optionally-signed-constant>  <gap>  <'$’> 

=>  <item-keyword>  <gap>  <simple-variable>  <gap> 
<optionally-signed-constant>  <gap>  <'$’>  #. 


#DF  item-keyword 

=>  <' ITEM' , ' [ • ]ITEM'>  #. 


#DF  item-description 

=>  <f loating-item-description> 

=>  <integer-item-description> 

=>  <f ixed-item-description> 

=>  <hollerith-item-description> 

=>  <status-item-description> 

=>  <boolean-item-description> 

=>  <transmission-code-item-description>  #. 
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#DF  floating-item-description 
=>  <'F'> 

=>  <*F'>  <gap>  <'R'>  #. 


#DF  integer-item-description 

=>  <integer-specifier>  <optional-rounding-specif ier> 
< op t iona 1 -integer -value -ran ge># . 


#DF  optional-rounding-specifier 

=>  <#NIL> 
r>  <gap>  <'R'>  #. 


#DF  optional-integer-value-range 
=>  <#NIL> 

=>  <gap>  <integer-Gonstant>  <gap>  <gap> 

<integer-constant>  #. 


#DF  fixed-item-description 

=>  <f ixed-specif ier>  <optional-rounding-specif ier> 
<optional-f ixed-value-range>  #. 


#DF  optional-fixed-value-range 
= > <//NIL> 

=>  <gap>  <range-constant>  <gap>  <gap> 

<range-constant>  #. 


#DF  range-constant 

=>  <integer-constant>  #U  <f ixed-constant>  #. 


/ifDF  fixed-specifier 

=>  <'A'>  <gap>  <numeral>  <gap>  <'S',  ’U'>  <gap> 
<optional-sign>  <numeral>  #. 
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#DF  boolean-item-description 
=>  <'B'>  #. 

#DF  hollerith-item-description 

=>  <*H'>  <gap>  <numeral>  #. 

#DF  transmission-code-item-description 
=>  <'T'>  <gap>  <numeral>  #. 

#DF  status-item-description 

=>  <'S'>  <gap>  <optional-numeral>  <%  <status-constant>> 

if. 

ifDF  optional-numeral 
=>  <#NIL> 

=>  <nuraeral>  <gap>  #. 

#DF  integer-specifier 

=>  'A*>  <gap>  <numeral>  <gap>  <*S’,  ’U'>  #. 

ii*«*<array-declaration>***" 


#DF  array-declaration 

=>  <*ARRAY',  '[’]ARRAY'>  <gap>  <simple-variable>  <gap> 
<dimension-list>  <gap>  <item-description>  <gap> 
<'$'>  <gap>  <cf-constant-list>  #. 


ifdF  dimension-list 
=>  <numeral> 

=>  <numeral>  <gap>  <dimension-list>  #. 
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#DF  bare-constant-list 

=>  <optionally-signed-constant> 

=>  <optionally-signed-constant>  <%^  <#SPACE>> 
<bare-constant-list>  #. 


#DF  cf-constant-list 

=>  <list-begin-bracket>  <bare-constant-list> 

< list -end -bracket> 

=>  <list-begin-bracket>  <$1  <cf-constant-list>> 
<list-end-bracket> 

=>  <#NIL>  #. 

II  *»»<  table -declare  t ion  >***" 


#DF  table-declaration 

=>  <ordinary-table-declaration> 

=>  <def ined-entry-table-declaration> 
=>  <like-table-declaration>  #. 


y/DF  ordinary-table-declaration 

=>  <table-keyword>  <gap>  <optional-table-name>  <gap> 
<table-size-specif ication>  <gap> 

<optional-basic-structure-specif ication>  <gap>  <'$'> 
<gap>  <begin-keyword>  <gap> 

<ordinary-entry-description>  <gap>  <end-keyword>  #. 


y/DF  defined -entry- table-declaration 

=>  <table-keyword>  <gap>  <optional-table-name>  <gap> 
<table-size-specif ication>  <gap> 

<op tional-basic-structu re-spec ificat ion > <gap> 
<numeral>  <gap>  <'$'>  <gap>  <begin-keyword>  <gap> 
<def ined-entry-description>  <gap>  <end-keyword > if. 


if DF  like- table -declaration 

=>  <table-keyword>  <gap>  <simple-variable>  <gap> 
<optional-table-size-specification>  <gap> 
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<optional-basic-structure-specification>  <gap> 
<optional-packing-specification>  <gap>  <'L*>  <gap> 

<•$’>  #. 

#DF  table-keyword 

=>  <'TABLE',  '[']TABLE’>  #. 

#DF  begin-keyword 

=>  <*BEGIN',  '[’]BEGIN'>  #. 


#DF  end-keyword 

=>  <'END' , ' [ • ]END*>  #. 

#DF  optional-table-name 

=>  <table-name>  #U  <#NIL>  #. 

#DF  table-size-specification 

=>  <'V’>  <gap>  <numeral> 

=>  <'R'>  <gap>  <numeral>  #. 


#DF  optional -table -size -specification 

= > <table-size-specif ication>  #U  <y/NIL>  #. 


#DF  optional -basic -structure -specification 
=>  <'P' , 'S' ,#NIL>  #. 

ji*DF  optional -packing-specification 
=>  <'N' , 'M' , 'D' ,#NIL>  #. 


#DF  ordinary-entry-description 
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=>  <$1  <<ordinary-table-item-declaration>  <gap>  #U 
<subordinate-overlay-declaration>  <gap>  >>  #. 


"•**<ord inary- table-item-declarat ion >*••” 


itDF  ordinary- table -item-declaration 

=>  <item-keyword>  <gap>  <simple-variable>  <gap> 
<item-description>  <gap>  <'$'>  <gap> 

<op tional -one -dimensional -cons tan t-1 is t>  # . 


#DF  one -dimensional -const ant -list 

=>  <list-begin-bracket>  <bare-constant-list> 
<list-end-bracket>  #. 


//DF  optional-one-dimensional-constant -list 

=>  <one-dimensional-constant-list>  #U  <#NIL>  #. 
•i»»»<subordinate-overlay-declaration>***'' 

#DF  subordinate -over lay -declaration 

=>  <overlay-keyword>  <gap>  <overlay-specif ication> 
<gap>  <'$'>  #. 

#DF  overlay-keyword 

=>  <'0VEPLAY',  * [ ' ]0VERLAY'>  #. 

#DF  overlay-specification 
=>  <data-sequence> 

=>  <overlay-specif ication>  <gap>  <'='>  <gap> 
<data-sequence>  #. 

//DF  data-sequence 

=>  <simple-variable> 
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=>  <data-sequence>  <gap>  <gap>  <simple-variable> 


#DF  def ined-entry-description 

=>  <$1  < <string-item-declaration>  <gap>  #U 

<def ined-entry-item-declaration>  <gap>  >>  #. 


#DF  string-item-declaration 

=>  <*STRING’,  '[']STRING'>  <gap>  <simple-variable> 
<gap>  <item-description>  <gap>  <numeral>  <gap> 
<numeral>  <gap>  <optional-packing-specif ication> 
<gap>  <numeral>  <gap>  <numeral>  <gap>  <'$*>  <gap> 
<optional-two-dimensional-constant-list>  #. 


#DF  optional-two-dimensional -constant -list 

=>  <list-begin-bracket>  <gap>  <$1  < 

<one-dimensional-constant-list>  <gap>  > > 
<list-end-bracket> 

=>  <#NIL>  #. 


#DF  def ined-entry-item-declaration 

=>  <item-keyword>  <gap>  <simple-variable>  <gap> 

<item-description>  <gap>  <numeral>  <gap>  <numeral> 
<gap>  <optional-packing-specif ication>  <gap>  <'$'> 
<gap>  <optional-one-dimensional-constant-list>  #. 


#DF  file-declaration 

=>  <'FILE',  '[']FILE'>  <gap>  <file-name>  <gap> 

<f ile-structure-specif ication>  <gap>  <status-list> 
<gap>  <device-name>  <gap>  <'$'>  #. 


#DF  file -structure-specification 

=>  <gap>  <numeral>  <gap>  <'V*,*R'>  <gap> 

<numeral>  #. 
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#DF  status-list 


=>  <%\  <<status-constant>  <gap>>>  #. 


#DF  device-name 


=>  <name>  #. 


#DF  independent -over lay-declaration 

=>  <overlay-keyword>  <gap>  <overlay-specif ication> 
<gap>  <*$'> 

=>  <overlay-keyword>  <gap>  <numeral>  #U 
<octal-constant>  <gap>  <•='>  <gap> 
<overlay-specif ication>  <gap>  <'$'>  #. 


#DF  process-declaration 

=>  <program-declaration>  #U  <close-declaration>  #U 
<procedure-declaration>  #U  <switch-declaration>  #. 


#DF  program-declaration 

=>  <' [ ' ]PR0GRAM* > <gap>  <program-name>  <gap> 
<optional-origin>  <gap>  <'$'>  #. 


#DF  program-name 
=>  <name>  #. 


#DF  optional -origin 

= > <numeral>  #1)  <octal-constant>  #U  <#NIL>  #, 


//DF  close-declaration 

=>  <close-keyword>  <gap>  <close-name>  <gap>  <'$'>  <gap> 
<close-body>  #. 

//DF  close-keyword 

================z=z====  grammar-14  zzzzzzzzzzzzzzzzzzzzzzz 
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=>  <'CL0SE',  '[']CL0SE'>  #. 


#DF  close-body 


=>  <begin-keyword>  <gap>  <inner-close-body>  <gap> 
<close-end>  #. 


#DF  inner-close-body 


=>  <statement-list>  #. 


#DF  close-end 


=>  <end-keyword>  #. 


#DF  close-name 


=>  <name>  #. 


#DF  procedure-declaration 


=>  <procedure-head>  <gap>  <procedure-body>  #. 


#DF  procedure-head 

=>  <proc-keyword>  <gap>  <procedure-name>  <gap> 
<optional-f ormal-parameter-list>  <’$'>  <gap> 
<optional-decl-list>  #. 


#DF  proc-keyword 


= > <*PR0C' , •[’  ]PP0C'>  #. 


#DF  procedure-name 
=>  <name>  #. 


//DF  optional-formal -parameter-list 
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i 

; =>  <#NIL> 

i =><*(•>  <gap>  <optional-inDut-parameter-list>  <gap> 

<' ) ’>  <gap> 

=>  <*(’>  <gap>  <optional-input-parameter-list>  <gap> 

; <'='>  <gap>  <output-parameter-list>  <gap>  <')’> 

<gap>  #. 


#DF  optional-decl-list 

= > </^NIL>  #U  <decl-list>  #. 


#DF  decl-list 

=>  <decl-list-declaration>  <$  < <gap> 
<decl-list-declaration>  > > #. 


#DF  decl-list-declaration 

=>  <directive>  #U  <data-declaration>  #U 
<program-declaration>  #. 


#DF  formal-input-parameter 
=>  <name> 

=>  < formal-input-close-parameter>  <gap>  #. 


#DF  formal-input-close-parameter 
=>  <name>  #. 

#DF  input-parameter-list 

=>  <f ormal-input-parameter> 

=>  <input-parameter-list>  <gap>  <gap> 

<formal-input-parameter>  #. 

#DF  optional -input -parameter -list 
=>  <#N1L> 

=>  <input-parameter-list>  #. 


i 
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#DF  formal-output-parameter 
=>  <name> 

=>  <formal-output-destination-parameter>  <gap>  #. 

#DF  forraal-output-destination-parameter 
=>  <name>  #. 

#DF  output-parameter-list 

=>  <formal-output-parameter> 

=>  <output-p^rameter-list>  <gap>  <gap> 

<formal-output-parameter>  #. 

#DF  procedure-body 

=>  <begin-bracket>  <gap>  <proc-statement-list>  <gap> 
<procedure-end>  #. 

#DF  proc-statement-list 

=>  <%  <statement  #U  restricted-declaration  #U 
directive>>  #. 

#DF  restricted-declaration 

=>  <data-declaration>  #U 

<restricted-process-declaration>  #. 

#DF  res trie ted -process -declaration 

=>  <program-declaration>  #U  <close-declaration>  #U 
<switch-declaration># . 

#DF  procedure-end 

=>  <end-keyword>  #, 
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#DF  switch-declaration 

=>  <index-switch-declaration> 
=>  <item-switch-declaration># . 


#DF  index-switch-declaration 

=>  <switch-keyword>  <gap>  <switch-name>  <gap>  <'=’> 
<gap>  <*('>  <gap>  <index-switch-list>  <gap>  <')'> 
<gap>  <•$•>  #, 


#DF  switch-keyword 

=>  <'SWITCH',  '[']SWITCH'>  #. 


#DF  index-switch-list 

=>  <op tional -sequence -desi gnat or > 

=>  <optional-sequence-designator>  <gap>  <gap> 

<index-switch-list>  #. 


#DF  optional-sequence -designator 

=>  <<sequence-designator>  #U  <nil>>  #. 

#DF  nil 

=>  <#NIL>  #. 


#DF  switch-name 
=>  <name>#. 


#DF  item-switch-declaration 

=>  <switch-keyword>  <gap>  <switch-name>  <gap>  <'(*> 
<gap>  <simple-variable>  <gap>  <’)'>  <gap>  <'='> 
<gap>  <*('>  <gap>  <item-switch-list>  <gap>  <')'> 
<gap>  <'$’>  #. 


1 

i 

1 

\ 

4 
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#DF  item-switch-list 

=>  <item-switch-case-expression> 

=>  <item-switch-case-expression>  <gap>  <gap> 

<item-switch-list>  #. 

#DF  item-switch-case-expression 

V 

=>  <general-constant>  <gap>  <'='>  <gap> 
<sequence-designator>  #. 

#DF  general-constant 

=>  <numeric-constant>  #U  <string-constant>  #U 
<status-constant>y/ . 

#DF  statement 

=>  <optional-statement-name-list>  <unnamed-statement> 

#. 

#DF  unnamed-statement 

=>  <independent-statement> 

=>  <complex-statement># . 

#DF  optlonal-statement-name-llst 

=>  <X  < <statement-label > <gap>  > > #. 

#DF  stateaent-label 

:>  <stateaent-nane>  <gap>  #. 

#DF  stateaent -naae 
<rane>  #. 

•IF  independent -St a^ ewent 

r s : s X : = z z : X : s : z : z |(ra«aar-19  x z z z z z z z z z z z z z z z z z z z z z z 
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=>  <simple-statement>  #U  <compound-statement>#. 


#DF  simple-statement 

=>  <assignment-statement> 

=>  <exchange-statement> 

=>  <go-to-statement> 

=>  <test-statement> 

=>  <return-stateraent> 

=>  <stop-statement> 

=>  <procedure-call-statement> 
=>  <input-stateraent> 

=>  <output-statement> 

=>  <open-input-statement> 

=>  <open-output-statement> 

=>  <shut-input-statement> 

=>  <shut-output-statement> 


#DF  assignment-statement 

=>  <numeric-variable>  <gap>  <'='>  <gap> 
<numeric-expression>  <gap>  <'$'> 

=>  <boolean-variable>  <gap>  <’='>  <gap> 
<boolean-expression>  <gap>  <'$'> 

=>  <variable>  <gap>  <'='>  <gap>  <atomic-f ormula>  <gap> 
<•$’>  #. 


#DF  exchange-statement 

=>  <variable>  <gap>  <’=='>  <gap>  <variable>  <gap>  <*$'> 

#. 


y^DF  go-to-statement 

=>  <*G0T0',  '[']G0T0'>  <gap>  <sequence-designator > 
<gap>  <'$•>  #. 


#DF  sequence -designator 

=>  <destination-name> 

=>  <destination-name>  <gap>  <*($’>  <gap> 
<destination-index>  <gap>  <’$)’>  #. 
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#DF  destination-name 
=>  <name>  #. 

#DF  destination-index 

=>  <index-list>  #. 

#DF  test-statement 

=>  <test-keyword>  <gap>  <'$’> 

=>  <test-keyword>  <gap>  <loop-variable>  <gap>  <•$'>  #. 

#DF  test-keyword 

=>  <'TEST' , '[* ]TEST'>  #. 

#DF  return-statement 

r>  <*RETURN',  ’[•]RETURN*>  <gap>  <'$*>  #. 


#DF  stop-statement 

=>  <'ST0P',  '[']ST0P*>  <gap> 

<optional-initial-statement-name>  <'$'>  #. 


#DF  procedure-call-statement 

=>  <procedure-name>  <gap>  <•$•> 

=>  <procedure-name>  <gap>  <'(’>  <gap> 

<optional-actual-input-parameter-list>  <gap>  <')'> 
=>  <procedure-name>  <gap>  <'(*>  <gap> 

<optional-actual-input-parameter-list>  <gap>  <'='> 
<gap>  <actual-output-parameter-list>  <gap>  <')'> 
<gap>  <’$*>  #. 


#DF  actual-output-parameter 
=>  <variable> 
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=>  <actual-output-destination-parameter>  <gap> 

//DF  actual -out put -destination -parameter 
=>  <name>  #. 

y/DF  actual -out put -parameter-list 
=>  <actual-output-parameter> 

=>  <actual-output-parameter-list>  <gap>  <gap> 

<actual-output-parameter>  #. 

yyOF  input-statement 

=>  <input-keyword>  <gap>  <file-name>  <gap> 
<input-operand>  <gap>  <'$'>  #. 

y/DF  input-keyword 

= > <'INPUT' , '['  ]INPUT'>  #. 

y/DF  output-statement 

=>  <output-keyword>  <gap>  <file-name>  <gap> 
<output-operand>  <gap>  <'$'>  y/. 

y/DF  output-keyword 

=>  <'0UTPUT',  ’[']0UTPUT'>  #. 

y/DF  input-operand 
=>  <variable> 

= > <name>  <gap>  <*(?''>  <gap>  <index-list>  <gap> 
<gap>  <index-list>  <gap>  <'$)'>  #. 

y/DF  output-operand 

=>  <constant>  #U  <string-constant> 

=>  <input-operand>  #. 
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#DF  open-input-statement 

=>  <open-keyword>  <gap>  <input-keyword>  <gap> 
<file-name>  <gap>  <*$'> 

=>  <open-keyword>  <gap>  <input-keyword>  <gap> 

<file-name>  <gap>  <input-operand>  <gap>  <'$'>  #. 


#DF  open-output-statement 

=>  <open-keyword>  <gap>  <output-keyword>  <gap> 
<file-narae>  <gap>  <'$’> 

=>  <open-keyword>  <gap>  <output-keyword>  <gap> 

<file-name>  <gap>  <output-operand>  <gap>  <'$'>  #. 


#DF  open-keyword 

=>  <'0PEN* , '[ * ]0PEN'>  #. 


#DF  shut-input-statement 

=>  <shut-keyword>  <gap>  <input-keyword>  <gap> 
<file-name>  <gap>  <'$'> 

=>  <shut-keyword>  <gap>  <input-keyword>  <gap> 

<file-name>  <gap>  <input-operand>  <gap>  <'$*>  #. 


#DF  shut-output-statement 

=>  <shut-keyword>  <gap>  <output-keyword>  <gap> 
<file-name>  <gap>  <’$’> 

=>  <shut-keyword>  <gap>  <output-keyword>  <gap> 

<file-name>  <gap>  <output-operand>  <gap>  <'$•>  #. 


#DF  shut-keyword 

=>  <'SHUT' , ' [ * ]SHUT'>  #. 


#DF  compound-statement 

=>  <begin-bracket>  <gap>  <statement-list>  <gap> 
<end-bracket>  #. 
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#DF  begin-bracket 

=>  <begin-keyword>  #. 


#DF  end-bracket 

=>  <end-keyword>  #. 


#DF  complex-statement 

=>  <direct-statement> 

=>  <conditional-statement> 
=>  <alternative-statement> 
=>  <loop-statement># . 


#DF  direct-statement 

=>  <'DIRECT',  '[•]DIRECT'>  <gap>  <direct-code>  <gap> 
<• JOVIAL' , '[' ]J0VIAL'>  #. 


#DF  basic-direct-code 

=>  <implementat ion-dependent -direct-code> 
=>  <direct-assign># . 


//DF  implementation-dependent -direct -code 
= > <//SPACE>  #. 


#DF  direct-assign 

=>  <assign-keyword>  <gap>  <'A'>  < 

<optionally-signed-integer-constant>  #U  <#NIL>  > 
<gap>  <'='>  <gap>  <declared-variable>  <gap>  <'$•> 
=>  <assign-keyword>  <gap>  <declared-variable>  <eap> 
<'r'>  <gap>  <'A'>  < 

<optionally-signed-integer-constant>  #U  <#NIL>  > 
<gap>  <•$'>  #. 


grammar-24 


L 


i 

07/05/77  I 

SEMANOL  Project  I 

Main  Syntax  ! 

#DF  assign-keyword 

=>  <'ASSIGN',  ’[']ASSIGN'>  #. 

#DF  direct-code 

=>  <basic-direct-code> 

=>  <direct-code>  <basic-direct-code>  #, 

#DF  conditional-statement 

=>  <if-keyword>  <gap>  <boolean-f ormula>  <gap>  <'$'> 

<gap>  <independent-statement> 

<unwritten-conditional-end>  #. 

#DF  if-keyword 

= > <'IF* , '[ ' ]IF'>  #. 

#DF  unwritten-conditional-end 
=>  <#NIL>  #. 

#DF  alternative-statement 

=>  <alternative-list>  <gap>  <alternative-statement-end> 

#. 

#DF  alternative-statement-end 
=>  <end-keyword>  #. 

#DF  alternative-list 

=>  <if-either-alternative>  <$1  < <gap> 

<or-if-alternative>  > > #. 

#DF  if-either-alternative 

=>  <'IFEITH',  •[*]IFEITH'>  <gap>  <boolean-formula> 
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<gap>  <'$•>  <gap>  <independent-statement> 
<unwritten-alternative-end>  #. 


#DF  or-if-alternative 

=>  <optional-statement-name-list>  <'0RIF',  '[']0RIF'> 
<gap>  <boolean-formula>  <gap>  <'$'>  <gap> 

< i nde pendent -St at ement>  <unwritten-alternative-end> 


#DF  unwritten-alternative-end 
=>  <#NIL>  #. 


#DF  loop-statement 

=>  <complete-loop-header>  < <independent-statement>  #U 
<special-compound>  > 

=>  <two-factor-loop-header > < <independent-statement> 
y/U  <special-compound>  > 

=>  <one-factor-loop-header>  <independent-statement>  #. 


y/DF  complete-loop-header 

=>  <optional-one-factor-f or-clause-list> 
<complete-f or-clause>  <gap> 

<optional-one-and-twc-factor-for-clause-list>  #. 


y/DF  two-factor-loop-header 

=>  <optional-one-factor-for-clause-list> 
<two-factor-for-clause>  <gap> 

< optional-one -and -two-factor-f or-clause-list>  #. 


y/DF  one-factor-loop-header 

r > <opt ional -one-fact or-for-clause-1 is t> 
<one-factor-for-clause>  <gap>  #. 


y/DF  optional-one-factor-f or-clause-list 
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r>  <%  < <one-factor-for-clause>  <gap>  > > #. 


#DF  optional -one -and -two-factor-for-clause-1 is t 

=>  <%  < <<one-factor-for-clause>  #U 

<two-factor-for-clause>>  <gap>  > > #. 


#DF  one-factor-for-clause 

=>  <for-keyword>  <gap>  <loop-variable>  <gap>  <'=’> 
<gap>  <initial-formula>  <gap>  <•$’>  #. 


#DF  for-keyword 

=>  <’F0R' , '[' ]F0R'>  #. 


#DF  two-factor-f or-clause 

=>  <for-keyword>  <gap>  <loop-variable>  <gap>  <'='> 
<gap>  <initial-formula>  <gap>  <gap> 

< increment-formula>  <gap>  <'$'>  #. 


#DF  complete-for-clause 

=>  <for-keyword > <gap>  <loop-variable>  <gap>  <'='> 

<gap>  <initial-f ormula>  <gap>  <',*>  <gap> 

< increment-formula>  <gap>  <*,*>  <gap> 
<termination-formula>  <gap>  <'$*> 

=>  <for-keyword > <gap>  <loop-variable>  <gap>  <*='> 

<gap>  <all-keyword>  <gap>  <'('>  <eap>  <tabular-name> 
<gap>  <')’>  <gap>  <'$'>  #. 


#DF  all-keyword 

=>  <' ALL' , ' [ ' ]ALL' > #. 


#DF  initial-formula 

=>  <numeric-formula>  #. 
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#DF  increment-formula 

=>  <numeric-formula>  #. 


#DF  termination-formula 

=>  <numeric-formula>  #. 


#DF  unnamed-special-compound 

=>  <begin-keyword>  <gap>  <statement-list>  <gap> 

<if-keyword>  <gap>  <special-test-statement>  <gap> 
<*$*>  <gap>  <end-keyword>  #. 


#DF  special-test-statement 

=>  <boolean-formula>  #. 

#DF  special-compound 

=>  <opt ional -statement-name-1 is t> 
<unnamed-special-compound>  #. 


#DF  directive 

=>  <def ine-directi ve> 
=>  <mode-directive>  #. 


#DF  def ine-directive 

=>  <' DEFINE ]DEFINE ' > <token-gap>  <def ined-name> 
<restricted-token-gap>  <double-prime>  <definiens> 
<double-prime>  <token-gap>  <•$’>  #. 


#DF  mode-directive 


=>  <mode-keyword>  <gap>  <item-description>  <gap>  <'$’> 
=>  <mode-keyword>  <gap>  <item-description>  <gap>  <'P'> 
<gap>  <optionally-signed-constant>  <gap>  <’$'>  #. 
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//DF  mode-keyword 

=>  <'M0DE' , • [ * ]M0DE’>  #. 


#DF  numeric-formula 

=>  <atomic-numeric-formula> 
=>  <numeric-expression># . 


#DF  numeric-expression 

=>  <numeric-term> 
=>  <sum> 

=>  <difference>  #. 


#DF  sum 

=>  <numeric-formula>  <gap>  <'+'>  <gap>  < <numeric-term> 
#U  <atomic-numeric-formula>  > #. 


#DF  difference 

=>  <numeric-f ormula>  <gap>  <*-*>  <gap>  < <numeric-term> 
#U  <atomic-numeric-formula>  > #. 


#DF  numeric-term 

=>  <numeric-factor> 
=>  <product> 

=>  <quotient>#. 


#DF  product 

=>  <numeric-term  #U  atomic-numeric-formula>  <gap>  <'•'> 
<gap>  <numeric-factor  #U  atomic-numeric-f ormula>  #. 


IDF  quotient 

=>  <numeric-term  #U  atomic-numeric-formula>  <gap>  <'/'> 
<gap>  < <numeric-factor>  #U  <atomic-numeric-f ormula> 

> #. 
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#DF  numeric-factor 

=>  <numeric-primary> 
=>  <exponential>  #. 


#DF  exponential 

=>  <numeric-factor  #U  atomic-numeric-f ormula>  <gap> 
<'*•'>  <gap>  <numeric-priraary  #U 
atomic-numeric-formula> 

=>  <numeric-factor  #U  atoroic-numeric-f ormula>  <gap> 
<'(•'>  <gap>  <numeric-formula>  <gap>  <'•)’>  #. 


#DF  numeric-primary 

=>  abs-function 
=>  nwdsen-function 
=>  loc-function 

=>  <'('>  <gap>  <numeric-formula>  <gap>  <’)'>  #. 


#DF  nwdsen-function 

= > <’NWDSEN',  '['INWDSENO  <gap>  <’ (’>  <gap> 

<tabular-name>  <gap>  <’)’>#•  . : 

I 

1 

J 

#DF  loc-function  ! 

1 

=>  <'[']L0C'>  <gap>  <’(’>  <gap>  <loc-name>  <gap>  <')'>  | 

=>  <'[’]L0C*>  <gap>  <*('>  <gap>  <loc-name>  <gap>  | 

<gap>  <*)'>#.  j 


//DF  abs-function 

=>  <'ABS',  '[»]ABS'>  <gap>  <•('>  <gap> 
<numeric-formula>  <gap>  <')'> 

=>  <'(/'>  <gap>  <numeric-formula>  <gap>  <’/)'>  #. 


#DF  tabular-name 
=>  <name>  #. 
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#DF  loc-name 

=>  <name>#. 


#DF  atomic-numeric-formula 

=>  <unary-minus> 

=>  <unary-plus> 

=>  <numeric-variable> 
=>  <numeric-constant> 
=>  <function-call>  #. 


#DF  unary-plus 

=>  <’+’>  <gap>  <atomic-numeric-forraula>  #. 


#DF  unary-minus 

=>  <'-'>  <gap>  <atomic-numeric-formula>  #. 


#DF  function-call 

=>  <function-name>  <gap>  <*(’>  <gap> 

<optional-actual-input-parameter-list>  <gap>  <')'> 

#. 


#DF  function-name 
=>  <name>#. 


#DF  optional-actual -input-parameter-list 
=>  <#NIL> 

=>  <actual -in put -parameter-1 is t># . 


#DF  actual-input-parameter-list 
=>  <actual-input-parameter > 

=>  <actual-input-pararaeter-list>  <gap>  <gap> 
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<actual-input-parameter>  #. 

#DF  actual-input-parameter 
=>  <formula> 

=>  <actual-input-close-parameter>  <gap>  #. 

#DF  actual-input-close-parameter 
=>  <name>  #. 

#DF  formula 

=>  <numeric-expression>  #U  <boolean-expression>  #U 
<atomic-formula>  #• 


#DF  atomic-formula 
=>  <variable> 

=>  <numeric-constant>  #U  <string-constant>  #U 
< status -cons tant> 

=>  <function-call># . 


#DF  atomic-boolean-formula 

=>  <boolean-variable> 
=>  <boolean-constant> 
=>  <function-call># . 


#DF  boolean-formula 

=>  <atomic-boolean-f ormula> 
=>  <boolean-expression>// . 


#DF  boolean-expression 

=>  <boolean-terro> 

=>  <dis junction>  #. 

#DF  disjunction 

====r==r==============r  grammar- 32 
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=>  <disjunct> 
<dis junct> 


<$1  < <gap>  <'0R' , 

> > #. 


• [ ' ]0R' > <gap> 


#DF  |lisjunct 

^ = > <boolean-terTr'^  #U  <atoniic-boolean-formula>  #. 

#DF  boolean-term 

=>  <boolean-primary> 

=>  <con junction>  #. 

#DF  conjunction 

= > <conJunct>  <11  < <(tap>  <'AND’,  •(•]AND’>  <(rap> 
<conJunct>  > > #. 


#DF  conjunct 

:>  <boolean-priBary > #U  <atoBic-boolean-formula>  #. 


#DE  boolean-primary 

=>  <relat ion-formula> 
i>  <negation> 

=>  <’('>  <gap>  <boolean-formula>  <gap>  <')'>  #. 
#DF  negation 

=>  <’N0T',  '[*]N0T'>  <gap>  < <boolean-primary > #U 
<atomic-boolean-formula>  > #. 

#DF  relation-formula 

=>  <chain-relation> 

=>  <status-relation> 

=>  <entry-relation>  I. 


#DF  chain-relation 
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=>  <relation>  #. 


#DF  status-relation 

=>  <declared-variable>  <gap>  <relation-constant>  <gap> 
<status-constant>  #. 

#DF  entry-relation 

r>  <entry-variable>  <gap>  <equality-relation-constant> 
<gap>  <entry-variable  #U  zero>  #. 

#DF  equality-relation-constant 

=>  <'EQ' , »[ ' ]EQ'> 

=>  <'NQ' , '[ ' ]NQ'>  #. 

#DF  zero 

=>  <'0'>  #. 

#DF  relation 

=>  < <relational-operand>  #U  <relation>  > <gap> 

<relation-constant>  <gap>  <relational-operand>  #. 

#DF  relational-operand 

=>  <numeric-formula> 

=>  <string-constant> 

=>  <special-literal-variable>  #. 

#DF  relation-constant 

=>  <equality-relation-constant>  #U 
< inequal ity-relat ion -const an t>  #. 

#DF  inequal ity-relat ion -constant 
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=>  <'GR' , 
=>  <'GQ' , 
=>  <'LS' , 
= > <'LQ'  , 


’['  ]GR'> 
]GQ’> 

'[•  ]LS'> 

’[' ]LQ'>  #. 


#DF  declared-variable 

= > <simple-variable>  #U  <indexed-variable>// . 


#DF  simple-variable 
=>  <name>#. 


#DF  indexed-variable 

=>  <name>  <gap>  <'($'>  <gap>  <index-list>  <gap>  <*$)’> 

#DF  index-list 

=>  <index-formula> 

=>  <index-formula>  <gap>  <gap>  <index-list> 

#DF  index-formula 

=>  <numeric-formula>  #. 


#DF  special-integer-variable 
=>  <loop-variable> 

=>  '[']BIT'>  <gap>  <’($'>  <gap>  <index-list> 

<gap>  <*$)'>  <gap>  <'('>  <gap>  <declared-variable> 
<gap>  <*)’> 

=>  <'CHAR',  '[']CHAR'>  <gap>  <»('>  <gap> 

<f loating-variable>  <gap>  <')'> 

= > <’P0S',  '[‘IPOSO  <gap>  <•(’>  <gap>  <file-name> 
<gap>  <*)'> 

=>  <'NENT',  ’[']NENT'>  <gap>  <’ O <gap>  <table-name> 
<gap>  <• ) ' > #. 


#DF  table-name 
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=>  <narae>#. 


#DF  floating-variable 

=>  <declared-variable># . 


#DF  file-name 

=>  <name>#. 


#DF  special-fixed-variable 


=>  <'MANT' , ' [ ’ ]MANT'> 
<floating-variable> 


<gap>  <' ( •> 
<gap>  <»)’> 


<gap> 

#. 


#DF  numeric-variable 

=>  <declared-variable>  #U  <special-integer-variable>  #U 
<special-f ixed-variable>  #. 


#DF  special-literal-variable 

=>  <'BYTE',  •[']BYTE'>  <gap>  <»($'>  <gap>  <index-list> 
<gap>  <'$)’>  <gap>  <'(’>  <gap>  <declared-variable> 
<gap>  <’)'>  #. 


#DF  special-boolean-variable 

=>  <odd-keyword>  <gap>  <'(’>  <gap>  <loop-variable> 
<gap>  <' ) ' > 

=>  <odd-keyword>  <gap>  <’(’>  <gap>  <declared-variable> 
<gap>  <»)’>  if. 


#DF  odd-keyword 

=>  <'0DD* , ' [ ' ]0DD' > #. 


#DF  boolean-variable 
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=>  <declared-variable>  #U  <3pecial-boolean-variable># . 


#DF  entry-variable 

=>  <'ENTRY',  '['jENTRY',  'ENT',  '[']ENT'>  <gap>  <•('> 
<gap>  <tabular-name>  <gap>  <'($'>  <gap>  <index-list> 
<gap>  <'$)'>  <gap>  <')'>  #. 


#DF  variable 

=>  <declared-variable>  #U  <special-integer-variable>  #U 
<special-f ixed-variable>  #U 
<special -boolean -vari able >#U 

<special-literal-variable>  #U  <entry-variable>  #. 


#DF  constant 

r>  <f loating-constant>  #U  <fixed-constant>  #U 
<integer-constant>  #. 


#DF  optionally-signed-constant 

=>  <optional-sign>  <numeric-constant>  #. 


#DF  numeric-constant 

=>  <integer-constant>  #U  <f loating-constant>  #U 
<fixed-constant>  #U  <octal-constant>  #. 


#DF  optionally-signed -integer-const ant 

=>  <optional-sign>  <integer-constant>  #. 

#DF  numeral 

=>  <$1  <decimal-digit>>  #. 

#DF  integer-constant 
=>  <numeral> 
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=>  <numeral>  <*E'>  <numeral>  #. 


#DF  octal-constant 

=>  <'0('>  <$1  <octal-digit>>  <•)»>  # 


#DF  fixed-constant 

=>  <simple-f loating-constant>  <'A'> 
<f ractional-bits-designator> 

=>  <ex ponen t ia ted -floating-cons tan t> 
<fractional-bits-designator>  #. 


#DF  fractional-bits-designator 
=>  <#DECNUM>  #. 


//DF  floating-constant 

=>  <simple-floating-constant> 

=>  <e xponentiated -floating -const an t> 


#DF  simple-floating-constant 
=>  <numeral> 

=>  <numeral>  <numeral> 

=>  <numeral>  #. 

#DF  exponentiated -floating-constant 

=>  <simple-f loating-constant>  <’E'> 


#DF  exponent 

= > <//DECNUM>  #. 


//DF  optional-sign 

= > < ' + ' , , //NIL  > //. 
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<' A'> 


#. 


<exponent>  //. 
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#DF  transmission-code-constant 

r>  <numeral>  <*T'>  <open-paren-for-constant> 
<sign-string>  <close-paren-for-constant>  #. 

#DF  sign-string 

=>  <J1  <sign>  > #. 

#DF  hollerith-constant 

=>  <numeral>  <'H'>  <open-paren-for-constant> 

<general-sign-string>  <close-paren-for-constant>  #. 


#DF  general-sign-string 

=>  <$1  <general-sign>  > #. 

#DF  general-sign 

=>  <sign  #U  system-character>  #. 

#DF  system-character 

=>  <#EMPTYSET>  #. 

#DF  status-constant 

=>  <'V’>  <open-paren-f or-constant>  <#CAP  #U  name  #U 
primitive>  <close-paren-f or-constant>  #. 

#DF  boolean-constant 
=>  <*0' , ' 1 •>  #. 

#DF  string-constant 

=>  <hollerith-constant>  #U  <transmission-code-constant> 
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#DF  name 

=>  < <#CAP>  < <name-letter>>  > #S-  <'ABS',  'ALL', 

'AND',  ’ARRAY’,  ’ASSIGN’,  ’BEGIN’,  ’BIT',  ’BYTE’, 
’CHAR’,  ’CLOSE’,  ’DEFINE’,  ’DIRECT’,  ’END’,  ’ENT’, 
’ENTRY’,  ’EQ',  ’FILE’,  ’FOR’,  ’GOTO',  ’GQ’,  ’GR’, 
'IF',  ’IFEITH’,  ’INPUT’,  ’ITEM’,  ’JOVIAL’,  ’[’]LOC’, 
’LQ’,  ’LS’,  ’MANT’,  ’MODE’,  'NENT’,  ’NOT’,  ’NO’, 
’NWDSEN’,  ’ODD’,  ’OPEN’,  ’OR’,  ’ORIF',  ’OUTPUT’, 
’OVERLAY’,  ’POS’,  'PROC,  ’[’] PROGRAM ' , ’RETURN’, 
’SHUT’,  ’START’,  ’STOP’,  ’STRING’,  ’SWITCH’, 

’TABLE’,  ’TERM’,  ’TEST’>  #. 


//DF  name-letter 

=>  <alphameric> 

=>  <’[’]’>  <alphameric>  #. 


#DF  octal-digit 

= > <'0’  , ’ 1' , '2'  , 


’3'  , ’4’  , ’5’  , ’6’ , ’7’> 


#DF  decimal-digit 

=>  <#DIGIT>  #. 


#DF  alphameric 

=>  <#CAP>  #U  <#DIGIT>  #. 


#DF  prime 

=>  <’[']’>  #. 


#DF  double-prime 

=>  <’[’][’]’>  #. 


y/DF  mark 
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=>  <•+',  •*',  '/',  #SPACE,  •)', 

'$'>  #U  <comma>  #U  <prime>  #. 

#DF  sign 

=>  <#CAP>  #U  <#DIGIT>  #U  <mark>  #. 

#DF  loop-variable 
=>  <#CAP>  #. 

#DF  comma 

=>  #. 

#DF  list-begin-bracket 

=>  <begin-keyword>  #. 

#DF  list-end-bracket 

=>  <end-keyword>  #. 

/ifDF  gap 

=>  <#GAP> 

= > <#GAP>  <special-separators>  <^^Gk?>  #. 


#DF  special-separators 

=>  <special-separator> 

=>  <special-separator>  <#GAP>  <special-separators>  #. 


#DF  special-separator 

=>  <eol> 

=>  <comment> 

=>  <special-def-mark>  #. 
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#DF  special-def-mark 
=>  <'[NUL]'>  #. 

#DF  comment 

=>  <'['][']'>  <%  <comment-char>  > <'['][']'>  #• 
#DF  comment-char 

=>  <#NIL,  '[']’>  < <#ASCII>  #S-  <’[']•>  > #. 

#DF  eol 

=>  <'[LF]*>  #. 
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#DF  token-list 

r>  <token-gap>  <$<<token>  <token-gap>>>  #. 

#DF  token 

=>  <name-token> 

=>  <restricted-delimiter> 

=>  <numeric-form> 

=>  <special-constant> 

=>  <letter> 

=>  <primitive>  #S-  <’ [ ' ]DEFINE' , 'DEFINE' > 
=>  <def ine-directive>  #. 

#DF  name-token 

=>  <name>  #. 

#DF  restricted-delimiter 

=>  <mark>  #S-  #SPAC^>  #. 

#DF  numeric-form 

=>  <#NAT-N0S>  #. 

#DF  special-constant 

=>  <hollerith-constant> 

=>  <transmission-code-constant> 

=>  <status-constant>  #. 

#DF  letter 

=>  <#CAP>  #. 

#DF  primitive 

=>  <reserved-word> 
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=>  <'[']’>  <reserved-word> 

=>  <'[']LOC',  '[' ]PROGRAM'>  #. 


#DF  reserved-word 

=>  <*ABS»,  'ALL*,  'AND*,  'ARRAY',  'ASSIGN',  'BEGIN', 
'BIT',  'BYTE',  'CHAR',  'CLOSE',  'DEFINE',  'DIRECT', 
'END',  'ENT',  'ENTRY',  'EQ',  'FILE',  'FOR',  'GOTO', 
*GQ',  'GR',  'IF',  'IFEITH*,  'INPUT*,  'ITEM*, 
'JOVIAL*,  'LQ',  'LS*,  'MANT',  'MODE',  'NENT',  'NOT', 
'NQ',  'NWDSEN',  'ODD',  'OPEN',  'OR',  'ORIF', 
'OUTPUT',  'OVERLAY',  'POS',  'PROC,  'RETURN', 

' SHUT ' , ' START ' , * STOP ' , ' STRING ' , ' SWITCH ' , 

'TABLE*,  'TERM*,  'TEST'>  #. 


#DF  defined-name 
=>  <name>  #. 


[ #DF  definiens 

[ 

r>  <def-mark>  <restricted-token-gap> 

L <$<<restricted-token>  <restricted-token-gap>>> 

[ <def-mark>  #. 


#DF  def-mark 

=>  <#NIL>  #. 


#DF  restricted-token-gap 
=>  <#GAP> 

=>  <#GAP>  <eols>  <#GAP>  #. 
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= > <<restricted-deliiniter>  #S-  <•$'>> 
=>  <numeric-form> 

=>  <restricted-special-constant> 

=>  <letter> 

=>  <primitive>  #. 


#DF  restricted-special-constant 

=>  <restricted-hollerith-constant> 

=>  <res trie ted -transmission -cons tant> 
=>  <status-constant>  #. 


#DF  restricted-transmission-constant 


=>  <numeral>  <*T'>  <open-paren-for-constant> 

<restricted-sign-string>  <close-paren-for-constant > 

#. 


#DF  open-paren-for-constant 
=>  <'[STX]('>  #. 

#DF  close-paren-f or-constant 
=>  <' )[ETX]'>  #. 

#DF  restricted-sign-string 

=>  <$1  <restricted-pseudo-sign>>  #. 

#DF  restricted-pseudo-sign 

=>  <restricted-sign> 

=>  <prime>  <restricted-sign>  #. 

#DF  restricted-sign 

= > «sign>  #S-  <'[•]•>>  #. 

#DF  r es trie ted -hoi lerith-constant 

z=zz=====zz===z=====z==  lexgram-45  === 
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=>  <numeral>  <'H'>  <open-paren-for-constant> 

< res t ric ted -general -sign-str in g> 
<close-paren-for-constant>  #. 

#DF  restricted-general-sign-string 

=>  <$1<restricted-general-pseudo-sign>>  #. 

#DF  res trie ted -general -pseudo -sign 

=>  <restricted-general-sign> 

=>  <prime>  <restricted-general-sign>  #. 

#DF  restricted-general-sign 

= > «general-sign>  #S-  <’[']'>>  #. 

#DF  token-gap 
=>  <#GAP> 

=>  <#GAP>  <eols-and-or-comments>  <#GAP>  #. 

#DF  eols-and-or-comments 
=>  <eol-or-comment> 

=>  <eol-or-comment>  <#GAP>  <eols-and-or-comraents> 

y/DF  eol-or-comment 

=>  <eol> 

= > <comtnent>  #. 
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#DF  binary-string 

= > <%^  <’0»,  •1'»  #. 
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#CONTROL-COMMANDS: 

#ASSIGN-VALUE!  jovial-system  = #CONTEXT-FREE-PARSE-TREE 
(textually-transformed  (//GIVEN-PROGRAM),  "wrt" 

< jovial- j 3-system> ) 

#IF  ( $jovial-system$)is-not-syntactically-valid 
#THEN  //COMPUTE!  #ERROR 

#IF  there-are-executable-units-in  (main-prograra-of 
(jovial-system)  ) #THEN 

//BEGIN 

//ASSIGN-VALUE ! current-executable-unit  = 
first -executable -unit -in-program 
(main-program-of ( jovial-system) ) 

#WHILE  ($current-executable-unit$)is-not-terminator  #D0 
#BEGIN 

//COMPUTE ! computational-ef f ect-of 
( cur rent -executable -unit ) 

//ASSIGN-VALUE!  current-executable-unit  = 

executable -unit- successor -of  ( cur rent -executable -unit ) 

#END 

//END 

//COMPUTE!  //STOP  //. 
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iifSEMANTIC-DEFINITIONS : 


//DF  default-declarations-text 

=>  replace-all-occurrences-of  "in”  default-text, 

"with"  •$[LF]’)  #. 


#DF  replace-all-occurrences-of  (x,  "in"  y,  "with"  z) 

"{  X #IS  #STRING  #AND  y #IS  #STRING  #AND  z #IS  #STRING 
}" 

=>  y #IF  X #IS-N0T  #SUBW0RD  y; 

=>  #PREFIX-OF-FIRST  x #IN  y #CW  z #CW 

replace-all-occurrences-of  (x,  "in"  #SUFFIX-OF-FIRST 
X #IN  y,  "with"  z)  #0THERWISE  #. 


#DF  default-text 

=>  'DEFAULT  DECLARATIONS:'  #CW  '[LF]'  #CW 
default-mode-declaration  #CW  '[LF]'  #CW 
default-rem-function  #CW  '[LF]'  #CW 
default-remquo-procedure  #CW  '[LF]'  #. 


#DF  default-mode-declaration 
=>  'MODE  I 35  S $'  #. 


#DF  default-rem-function 

=>  replace-all-occurrences-of  ('delta',  "in" 

standard-rem-function , "with"  bits-per-word ) #. 


#DF  standard-rem-function 

=>  'PROC  REM  (NUM,DEN)  $'  #CW 

'ITEM  REM  I DELTA  S $'  #CW 

'ITEM  NUM  I DELTA  S $'  #CW 

'ITEM  DEN  I DELTA  S $'  #CW 

'BEGIN  REM=NUM/DEN  $'  #CW 
'REM=NUM-DEN«DEN  $'  #CW 
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•END'  #. 


#DF  default-remquo-procedure 

=>  replace-all-occurrences-of  ('DELTA',  "in" 

standard-remquo-procedure , "with"  bits-per-word ) #. 


#DF  standard-remquo-procedure 

=>  'PROC  REMQUO  ( NUM , DEN=QU0 , REM ) $'  #CW 
'ITEM  NUM  I DELTA  S $'  #CW 

'ITEM  DEN  I DELTA  S $'  #CW 

'ITEM  QUO  I DELTA  S $'  #CW 

'ITEM  REM  I DELTA  S $'  #CW 

'BEGIN  QUO  = NUM/DEN  $'  #CW 
•REM  = NUM-QU0*DEN  $'  #CW 
•END'  #. 


#DF  textually-transformed ( prog ) 

"{prog  #EQW  //GIVEN-PROGRAM  }" 

=>  ($  ($  prog  #CW  default-declarations-text  $) 
wi th -special -const an t s-t rans f ormed $ ) 
with -define -directives -applied  #. 


#DF  with-special-constants-transf ormed ( prog ) 

"{prog  #IS  ^STRING  }" 

= > prog  #IF  'HC  #IS-N0T  ^^SUBWORD  prog  #AND  'T(' 
#IS-N0T  #SUBW0RD  prog  #AND  'VC  #IS-N0T  #SUBW0RD 
prog  ; 

=>  ($prog  , "with-f orms-beginni ng-at" 
position -of -f irst-f orm-in ( prog ) 

,"to"position-last-char-of-first-form-in  (prog)$) 
rewritten  #0TKERWISE  #. 


#DF  posit ion -of -first-form-in(text) 
"{  text  #IS  #STRING  }" 
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=>  #FIRST  char-pos  : ^ <=  char-pos  <=  #LENGTH  (text)+1 
#SUCH-THAT  ( ($char-pos  ,"in''  text$)  starts-a-f orm 
#0R  char-pos  = #LENGTH  (text)+1)  #. 


#DF  starts-a-form(char-pos 
,"in"  text) 

"{  text  #IS  #STR1NG  #AND  1 < = char-pos  #AND  char-pos 

<=  fLENGTH  (text)  + 1}" 

=>  #FALSE  #IF  char-pos  >=  fLENGTH  (text); 

=>  fTRUE  fIF  ( #SUBSTRING-OF-CHARACTERS  char-pos  #T0 
char-pos  + 1 #0F  text)  #E0W  '['][']’  ; 

=>  ($  #SUBSTRING-OF-CHARACTERS  char-pos  #T0  fLENGTH 

(text)  #0F  text$)  begins-as-a-special-constant-would 
fIF  ($char-pos  , "th-character-in”  text  $) 
has-allowable-left-context ; 

=>  fFALSE  fOTHERWISE  #. 


#DF  has-allowable-left-context (char-pos 
, ”th-character-in"  text) 

"{  text  #IS  fSTRING  #AND  1<=char-pos  #AND  char-pos< 

fLENGTH  (text)}'' 

=>  fTRUE  fIF  char-pos  = i; 

=>  fTRUE  fIFF  (char-pos  - 1)  fTH-CHARACTER-IN  text  fIS 
fSUBWORD  ('()+-»1., =$[']'  few  fSPACE  fCW  '[LF]') 
fOTHERWISE  f. 


I 


i; 

\ 

t 

i 


i 
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fDF  begins-as-a-special-constant-would ( text) 

"{  text  fIS  fSTRING  }" 

=>  fFALSE  fIF  fLENGTH  (text)  <4; 

= > fTRUE  fIF  fLEFT  2 f CHARACTERS-OF  text  fEQW  'VC; 

=>  fFALSE  fIF  'HC  fIS-NOT  fSUBWORD  text  fAND  'T(' 
fIS-NOT  fSUBWORD  text  ; 
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=>  #TRUE  #IFF  ($  #PREFIX-OF-FIRST  '('  #IN  text  $) 
is-initial-part-of-literal-constant  ^OTHERWISE  #, 


#DF  is -in i t ial -part -of-1 it era 1 -constant (text) 

"{  text  //IS  #STRING  }" 

= > #FALSE  //IF  //LENGTH  (text)  < 2 ; 

= > #FALSE  #IF  #LAST-CHARACTER-IN  text  //IS-NOT-IN  \’H' 

, 'T’N; 

= > #TRUE  #IFF  #FOR-ALL  i : 1 <=  i < = ( //LENGTH  (text)  - 
1)  #IT-IS-TRUE-THAT  ( i //TH-CHARACTER-IN  text  //IS 
//DIGIT  ) #OTHERWISE  #. 


//DF  posi t ion-last -char-of -first-form-in  ( prog ) 

"{  prog  //IS  //STRING  }” 

=>  last-char-posn-in  (prog  , "given” 
posi t ion -of -first -form-in ( prog ) ) #. 


//DF  last-char-posn-in ( text 

, "given"  first-char-pos ) 

"{text  //IS  //STRING  #AND  1 <=  first-char-pos  //AND 

first-char-pos  <=  //LENGTH  (text)  +1  }" 

= > first-char-pos  //IF  first-char-pos  = //LENGTH  (text) 

+ 1 ; 

= > last-comment-char-posn-in  (text  , "given" 

first-char-pos)  //IF  first-char-pos  //TH-CHARACTER-IN 
text  //EQW 

=>  last-status-constant-char-posn-in  (text  /’given" 
first-char-pos)  #IF  first-char-pos  //TH-CHARACTER-IN 
text  //EQW  'V’; 

=>  last-literal-constant-char-posn-in  (text  /’given" 
first-char-pos)  //IF  first-char-pos  //TH-CHARACTER-IN 
text  //IS  //DIGIT  //. 
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#DF  last-comment-char-posn-in (text 
."given"  first-char-pos ) 

"{  text  #IS  #STRING  #AND  l<=f irst-char-pos  #AND 

first-char-pos  <=  #LENGTH  (text)}" 

=>  #LENGTH  (text)+1  #IF  fLENGTH  ( text )<f irst-char-pos 
+ 3 ; 

=>  #FIRST  char-pos  : (first-char-pos+3)<=char-pos  <= 
fLENGTH  (text)+1  fSUCH-THAT  ( ($char-pos  ,"in"text$) 
terminates-comment-form  fOR  char-pos  = fLENGTH 
(text)+1)  fOTHERWISE  f. 


f DF  terminates -comment -f orm( char-pos 
,"in"  text) 

"{text  fIS  fSTRING  fAND  *J<  = char-pos  #AND  char-pos<  = 
fLENGTH  (text)-*-1}" 

=>  fFALSE  #IF  char-pos  = fLENGTH  (text)+1; 

=>  fTRUE  fIFF  fSUBSTRING-OF-CHARACTERS  char-pos  - 1 fTO 
char-pos  #0F  text  fEQW  ’[•][']'  fOTHERWISE  #. 


#DF  last -status-cons tan t-char-posn -in (text 
."given"  first-char-pos) 

"(text  fIS  fSTRING  fAND  1<  = f irst-char-pos  //AND 

first-char-pos<=  fLENGTH  (text)}" 

=>  fLENGTH  (text)  +1  fIF  fLENGTH  (text)  < 
first-char-pos  + 3 ; 

=>  fLENGTH  (text)  +1  fIF  ( f irst-char-pos+ 1 ) 

fTH-CHARACTER-IN  text  fNEQW  '('  fOR  (first-char-pos 
+2)  fTH-CHARACTER-IN  text  fIS-NOT  fCAP  ; 

=>  fFIRST  char-pos  : ( f irst-char-pos+3 ) <=  char-pos  <= 

fLENGTH  (text)+1  fSUCH-THAT  ( ($char-pos  ."in" 
text$)  terminates-status-constant-f orm  #0R  char-pos 
= fLENGTH  (text)+1)  fOTHERWISE  #. 


//DF  terminates-status-constant-f  orm  (char-pos 
."in"  text) 
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''{text  #IS  #STRING  #AND  4<=char-pos  #AND  char-pos  < = 
jfLENGTH  (text)  + 1}" 

=>  #FALSE  #IF  char-pos  = #LENGTH  (text)+1; 

=>  #TRUE  #IFF  char-pos  #TH-CHARACTER-IN  text  #EQW  ')• 
//OTHERWISE  #. 


#DF  last -literal -cons tant-char-posn -in (text 
, "given"  f irst-char-pos ) 

"{text  //IS  #STRING  #AND  1<  = f irst-char-pos  //AND 
f irst-char-pos  < fLENGTH  (text)}" 

=>  ($last-char-posn-determined-by (text  , "starting-at" 
f irst-char-pos ) ."against"  text$) 
validated-for-consistency  #. 


//DF  last-char-posn-determined-by  ( text 
, "starting-at"  first-char-pos ) 

"{text  //IS  #STRING  #AND  1<  = first-char-pos  //AND 
first-char-pos  <=  fLENGTH  (text)}" 

=>  first-char-pos  + 

literal-length-determined-by( in it ial -number-part -of 
(text  , "starting-at"  first-char-pos))  - 1 #. 


#DF  initial-number-part-of ( text 

, "starting-at"  first-char-pos) 

"{text  //IS  fSTRING  #AND  K = f irst-char-pos  //AND 
first-char-pos  <=  fLENGTH  (text)}" 

=>  all-but-last-character-of  ( #PREFIX-OF-FIRST  '('  fIN 
characters-af ter  (first-char-pos  - 1 ,"in"  text))  f. 


f DF  all-but-last-character-of (str) 

"{str  fIS  //STRING  }" 

=>  fLEFT  ( fLENGTH  (str)  - 1)  f CHARACTERS-OF  str  f. 
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#DF  literal-length-determined-by ( nr-of-chars) 

"{nr-of-chars  #IS  #STRING  #AND  nr-of-chars  #IS  fINTEGER 
}'• 

=>  fLENGTH  (nr-of-chars)  + #LENGTH  ('H(')+  nr-of-chars 
+ #LENGTH  ('  )'  ) #. 


#DF  validated-for-consistency ( last-char-pos 
, "against"  text) 

"{text  #IS  fSTRING  #AND  last-char-pos  >4}" 

=>  #LENGTH  (text)+1  #IF  #LENGTH  (text)  < last-char-pos; 

=>  fLENGTH  (text)+1  fIF  last-char-pos  #TH-CHARACTER-IN 
text  fNEQW  •)'  ; 

=>  last-char-pos  fOTHERWISE  #. 


#DF  rewritten(prog 

, "starting-with-form-at"  f irst-char-pos  ,"to" 
last-char-pos) 

"{  prog  fis  fSTRING  #AND  f irst-char-pos  <= 

last-char-pos } " 

=>  prog  #IF  ( $f irst-char-pos  ,"in"  prog$) 
specif ies-no-form-at-all ; 

=>  incomplete-form-error-at  ( f irst-char-pos  ,"in"  prog 
) fIF  ($  last-char-pos  ,"in"  prog$) 
specif ies -an- incomplete -form ; 

=>  characters-up-to  ( f irst-char-pos  ,"in"  prog)  fCW 
modified ( special-form-at  ( f irst-char-pos  ,"to" 
last-char-pos  ,"in"  prog))  #CW 
( $characters-after( last-char-pos  ,"in"  prog)$) 
with -special -constants- transformed  #IF 
( $last-char-pos  ,"and"  f irst-char-pos  ,"in"  prog$) 
specify-a-complete-f orm  f. 


fDF  specifies-no-form-at-all (char-pos 
,"in"  prog) 
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”{  char-pos  #IS  ^INTEGER  #AND  prog  #IS  #STRING  }" 

= > #TRUE  iifIFF  char-pos  < 1 #0R  #LENGTH  (prog)  < 
char-pos  #. 


#DF  specif ies-an-incomp let e -form (char-pos 
,''in"  prog) 


"{char-pos  #IS  fINTEGER  #AND  prog  #IS  #STRING  }" 

=>  #TRUE  #IFF  char-pos  < 1 #0R  #LENGTH  (prog)  <char-pos 


#DF  sped fy-a-complete-forra(  last -char-pos 
, f irst-char-pos  ,"in"  prog) 

"{first-char-pos  #IS  ^INTEGER  #AND  last-char-pos  #IS 

#INTEGER  #AND  prog  //IS  #STRING  }" 

= > #TRUE  //IFF  1 <=  first-char-pos  #AND  first-char-pos 
<=  last-char-pos  #AND  last-char-pos  <=  #LENGTH 
(prog)  #. 


//DF  characters-up-to(char-pos 
/'in"  prog) 

"{prog  #IS  //STRING  #AND  1 <=  char-pos  #AND  char-pos  < = 
^LENGTH  (prog)}" 

= > #LEFT  (char-pos  - 1)  #CHARACTERS-0F  prog  // . 


//DF  characters-af ter ( char-pos 
,"in"  prog) 

"{prog  #IS  //STRING  #AND  1 <=  char-pos  //AND  char-pos  < = 
//LENGTH  (prog)}" 

= > #RIGHT  ( //LENGTH  (prog)  - char-pos)  #CHARACTERS-0F 
prog  // . 


#DF  special-form-at (pos  1 

,"to"  pos2  ,"in"  prog) 


lexan-56 


Page  lexan-57 


Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/05/77 
SEMANOL  Project 
Lexical  Analysis 


"{prog  #1S  #STRING  #AND  posi  < pos2  #AND  pos2  <= 
♦LENGTH  (prog)}" 

=>  #SUBSTRING-OF-CHARACTERS  posi  #T0  pos2  #0F  prog  #. 


#DF  modified(form) 

"{  ($form$)  is-special-form} " 

=>  ’['][']'  #CW  transformed-comment-or-def iniens 
(text-of  (form))  #CW  *[*][']'  #IF 
#FIRST-CHARACTER-IN  form  #E0W  *[']'; 

= > transformed-special-constant  (form)  fOTHERWISE  . 


#DF  transformed-special-constant (form) 

"{  ($form$)  is-special-constant-form}" 

=>  ( #PREF1X-0F-FIRST  •('  #IN  form  ) #CW  '[STXlC  #CW  ( 
#SUFFIX-OF-FIRST  '('  #IN  form)  #CW  '[ETX]'  #. 


#DF  text-of(  form) 

"{  ($form$)  is-comment-like-special-form}” 

=>  #NIL  #1F  ILENGTH  ( form)  =4; 

=>  #SUBSTRING-OF-CHARACTERS  3 #T0  ( fLENGTH  ( form)  - 
2)  #0F  form  fOTHERWISE  #. 


#DF  transformed-comment-or-def ini ens ( text ) 

"{  text  #IS  fSTRING  }" 

=>  text  #IF  'HC  #IS-N0T  fSUPWORD  text  #AND  ’T(’ 
#IS-N0T  fSUBWORD  text  #AND  'VC  #IS-N0T  fSUBWORD 
text  ; 

=>  ($text  ,"with-forms-beginning-at” 
position-of-f irst-form-in  (text) 

, " to^posit ion-las t-char-of-f irst-form-in  ( text ) $ ) 
rescribed  fOTHERWISE  #. 
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I #DF  rescribed (text 

, ”starting-with-format"  f irst-char-pos  ."to" 
f last-char-pos ) 

t "{text  #IS  #STRING  #AND  f irst-char-pos  <= 

I last-char-pos}" 

[ =>  text  #IF  ( $f irst-char-pos  ,"in"  text$) 

f specif ies-no-form-at-all ; 

=>  text  #IF  ( $last-char-pos  ,"in"  text$) 
specifies-an -incomplete-form; 

=>  characters-up-to  ( f irst-char-pos  ,"in"  text)  #CW 
modified  (special-form-at  ( f irst-char-pos  ,"to" 
last-char-pos  ,"in"  text))  #CW 

transf ormed -comment -or -de fin iens ( characters -after 
(last-char-pos  ,"in"  text))  #IF  ( $last-char-pos 
,"and"  first-char-pos  ,"in"  text$) 
specify-a-complete-form  #. 


#DF  with-def ine -direct ives-app lied (prog) 

"(prog  ins  {/STRING  }" 

= > prog  iilF  'DEFINE'  #IS-NOT  #SUBWORD  prog; 

r>  ($  ($prog$)  parsed-as-a-token-string$) 
processed-wrt-def ines  {/OTHERWISE  {/. 


{/DF  parsed -as -a- token -string (prog) 

"{prog  {/IS  {/STRING  }" 

=>  #CONTEXT-FREE-PARSE-TREE  (prog  ,"wrt"  <token-list> ) 

{/. 


{/DF  processed-wrt-def  ines  ( tlist ) 

"{tlist  ins  <token-list>  #0R  tlist  {/IS  {/UNDEFINED  }" 
= > #NIL  #IF  tlist  {/IS  #UNDEFINED  ; 
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=>  ($  ($sequence-of-program-level-tokens-and-gaps-in  j 

(tlist)$)  with-defines-expanded$)  ] 

converted-to-string-form  //OTHERWISE  #.  ] 

i 

! 

#DF  sequence-of-prograra-level-tokens-and-gaps-in ( tlist ) I 

1 

"{tlist  #IS  <token-list>}"  ] 

=>  #SUBSEQUENCE-OF-ELEMENTS  x #IN  ( #SEQUENCE-OF 
<name-token>  #U  <restricted-delimiter>  #U 
<numeric-f orm>  #U  <special-constant>  #U  <letter>  #U 
<primitive>  #U  <def ine-directive>  #U  <token-gap>  #IN 
tlist  ) #SUCH-THAT  (#F0R-ALL  y #IN 
#SE0UENCE-0F-ANCEST0RS-0F  x #IT-IS-TRUE-THAT  ( y 
#IS-N0T  <def ine-directive>  ))  #. 


#DF  converted-to-string-form (seq) 

"(seq  #E0  transf ormed-token-seq } " 

=>  #NIL  #IF  seq  #EQ  #NILSEQ  ; 

= > string-corresponding- to  ( //FIRST- ELEMENT- IN  seq  ) 
//CW  ($all-but-first-element-in  (seq)$) 
converted-to-string-form  //OTHERWISE  #. 


//DF  string-corresponding-to(tok) 

"(tok  //IS-IN  transf  ormed-token-seq } " 

= > special-def-mark-character  #IF  tok  //IS  <def-mark>; 
=>  #STRING-OF-TERMINALS-OF  (tok)  fOTHERWISE 


#DF  special-def-mark-character 
=>  '[NUL]*  #. 


//PROC-DF  wi th -defines -ex pa nded(tseq) 

//ASSIGN-VALUE!  unscanned-token-seq  = tseq 
//ASSIGN-VALUE!  transf  ormed-token-seq  = fNILSEO 
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#WHILE  unscanned-token-seq  #NE0  #NILSEQ  #D0 

^COMPUTE!  transf ormation-induced-by  (next-token-in 
(unscanned-token-seq)) 

#RETURN-WITH-VALUE ! transformed-token-seq  #. 

#DF  next-token-in ( seq  ) 

"{  seq  #EQ  unscanned-token-seq}” 

=>  #FIRST-ELEMENT-IN  seq  #. 

#DF  transf ormation-induced-by (next- tok ) 

”{next-tok  #EQ  next-token-in  (unscanned-token-seq)}” 

=>  expand  (next-tok)  #IF  ($next-tok$) 
is-a-def ined-name ; 

=>  pass-across(next-tok)  #OTHERWISE  #. 

#PROC-DF  pass-across (next-tok ) 

”{  ($next-tok$)  is-a-def ined-name  #E0  #FALSE  }” 

#ASSIGN-VALUE ! unscanned-token-seq  = 
a 11-but-n ext- tok -in (unscanned-token-seq  ) 

#ASSIGN-VAHJE ! transformed-token-seq  = 
transformed-token-seq  #CS  \next-tok\ 

//RETURN-WITH-VALUE!  //NIL  #. 

//DF  all-but-next-tok-in  ( seq  ) 

"{  seq  //EQ  unscanned-token-seq}” 

=>  all-but-f irst-element-in  (seq)  #. 

//DF  is-a-defined-name(next-tok) 
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"{  next-tok  #EQ  next-token-in  (unscanned-token-seq ) }" 

= > #FALSE  #IF  next-tok  //IS-NOT  <name-token>  ; 

= > #TRUE  //IFF  #THERE-EXISTS  def-dir  #IN 

subsequence-of-define -directives -contained -in 
( transf ormed-token-seq ) #SUCH-THAT 
(define-name-declared-in(def-dir)  #EQW  next-tok) 
//OTHERWISE  //. 


//DF  subsequence-of-def ine -direct ives -contained -in  ( seq ) 

"{  seq  //EQ  transformed-token-seq  }" 

= > #SUBSEQUENCE-OF-ELEMENTS  tok  //IN  seq  //SUCH-THAT  ( 
tok  //IS  <define-directive>)  #. 


//DF  def ine-name-declared-in (def-dir ) 

"{def-dir  #IS  <def ine-directive>}" 
=>  #SEG  3 #0F  def-dir  #. 


//PROC-DF  expand  (next-tok ) 

"{  ($next-tok$)  is-a-def ined-name } " 

#ASSIGN-VALL)E ! unscanned-token-seq  = 

token-seq-defined-for (next-tok ) #CS  all-but-next-tok-in 
(unscanned-token-seq ) 

//RETURN-WITH-VALUE!  //NIL  #. 


//DF  token -se q -d ef in ed-f or(next-tok) 

"{  next-tok  //EQ  next-token-in  (unscanned-token-seq)}" 

= > sequence-0 f -de f in iens -level -tokens-and -gaps -in 
(definiens-of  (define -di recti ve-defining 
(next-tok)))  #. 


//DF  define -di recti ve-defining(next-t ok) 
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” { next-tok  #EQ  next-token-in  (unscanned-token-seq ) } " 
=>  #LAST  def-dir  #IN 

su bsequence -o f -define-di recti ves-contained-in 

( transformed-token-seq ) #SUCH-THAT 

(def ine-name-declared-in  (def-dir)  #E0W  next-tok  ) 

#. 


#DF  def iniens-of (def-dir ) 

"{def-dir  #IS  <def ine-directive> } " 
=>  #SEG  6 #0F  def-dir  #. 


#DF  sequence -of-def iniens-level-tokens-and-gaps-in(def ) 
"(def  #IS  <definiens>}" 

=>  #SEQUENCE-0F  <name-token>  #U  <restricted-delimiter> 
#U  <numeric-forra>  #U  <letter>  #U  <primitive>  #U 
<restricted-special-oonstant>  #U  <def-mark>  #U 
<restricted-token-gap>  #IN  def  #. 


#DF  incomplete-form-error-at  (char-pos  ,"in"  text) 

"(text  //IS  //STRING  #AND  1 <=  char-pos  //AND  char-pos  < = 
//LENGTH  (text)}" 

=>  fatal-lexical-error 

( ' mal f ormed -special -form-at -under lined -char : ' #CW 
eol-char  #CW  characters-up-to  (char-pos  ,"in"  text) 
#CW  (char-pos  //TH-CHARACTER-IN  text)  #CW  '[BS]_'  #CW 
characters-af  ter  (char-pos  ,"in"  text))  . 


#PR0C-DF  fatal-lexical-error  (tnsg) 

"(msg  //IS  //STRING}" 

//COMPUTE!  fOUTPUT  (msg  //CW  eol-char) 
//COMPUTE!  lERROR  ». 


//DF  eol-char 
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#DF  is-not-syntactically-valid  (system) 

”{  system  #IS  < jovial- j 3-system>  #0R  system  #IS 
^UNDEFINED}'' 

= > #TRUE  #IF  system  //IS  //UNDEFINED; 

= > #FALSE  //IFF 

( $system$ ) is-contextually-syntactically-valid 
//OTHERWISE  //. 

//DF  is-contextually-syntactically-valid  (prog ) 

"{  prog  //IS  < jovial- j 3-program> 

= > IFALSE  //IF  non-context-'^ree-error-is-present-in 
(prog) ; 

= > #TRUE  //OTHERWISE  // . 


//PROC-DF  non-context-f ree-error-is-present-in  (prog) 

#ASSIGN-VALUE ! ncf-error-is-discovered  = #FALSE 

//FOR-ALL  dest-name  #IN  dest-name-seq  (prog)  #D0  //COMPUTE! 
con text-sensitive -tests -of -sequence -designator  (dest-name ) 

//COMPUTE! 

con text-sens itive-tests-of-returns-and-f  or-clauses-of 
(prog) 

//COMPUTE ! cont ext -sensitive-test -o f-odd -mod ifiers-in 
(prog) 

//RETURN-WITH-VALUE ! ncf-error-is-discovered  #. 


#DF  dest-name-seq  (prog) 

= > #SE0UENCE-0F  <destination-name>  #IN  prog  if. 

"CED  2^44.2:  Go-to  sequence-designator  must  be  the  name 
of  a statement,  program,  close,  or  switch.” 
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"This  does  not  check  whether  abnormal  procedure  exits 
are  semantically  correct;  e.g.,  whether  the  go-to  of 
such  an  exit  references  a statement  in  another 
procedure  not  yet  activated.  This,  however,  is  a 
dynamic  error  in  some  cases." 


#DF  context-sensitive-tests-of-sequence-designator  (dn) 

"{dn  #IS  <destination-name>}" 

= > error-message  ( • CED-2ll44 . 2-VIOLATED : ' #CW  dn  #CW 

' IS-NOT-NAME-OF-STATEMENT, -PROGRAM, -CLOSE-OR-SWITCH' ) 
#IF  there-is-no-program-point-designated-by  (dn); 

= > \ test-for-illegal-loop-entry  (dn)  , 

test-if-is-program-narae-in-switch  (dn)  \ //OTHERWISE 

#. 


//DF  test-for-illegal-loop-entry  (dn) 

"{dn  #IS  <destination-name>} " 

=>#NIL  #IF  point-designated-by  (dn)  #IS 
<formal-input-parameter>  #U 
< formal -out put-parameter > ; 

=>  test-for-loop-containing  (dn)  #OTHERWISE  #. 

//DF  test-for-loop-containing  (dn) 

=>  #NIL  #IF  ( $point-designated-by  (dn)$) 
is-not-in-loop ; 

= > test-for-outside-loop-entry  (dn)  #0THERWISE  // . 


#DF  test-for-outside-loop-entry  (dn) 

=>  #NIL  #IF  loop  ( innermost-loop-containing 
(point-designated-by  (dn)),  "contains"  dn)  ; 

=>  error-message  ( ' CED-2456 . 3-VIOLATED : ' #CW  dn  #CW 

' IS-OUTSIDE-LOOP-CONTAINING*  #CW  point-designated-by 
(dn))  #OTHERWISE  #. 
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#DF  test-if-is-program-name-in-switch  (dn) 

=>  test-if-in-switch  (dn)  #IF  ($dn$)  is-program-name ; 

=>  #NIL  #OTHERWISE  #. 

#DF  test-if-in-switch  (dn) 

= > error-message  ( ' CED-2i|8 1 . 2-VIOLATED ; ' #CW  dn  #CW 
'IS-PROGRAM-NAME-IN-SWITCH' ) #IF  #THERE-EXISTS  sw 
#IN  #SEeUENCE-OF-ANCESTORS-OF  dn  //SUCH-THAT  (sw  #IS 
<switch-declaration>) ; 

=>  #NIL  #OTHERWISE  #. 

#DF  point-designated-by  (dn) 

=>  category-2-declaration-for  (dn)  #. 

#DF  there-is-no-program-point-designated-by  (dn) 

=>  #N0T  a-category-2-declaration-exists-for  (dn)  #, 

#DF  is-not-in-loop  (dn) 

= > #N0T  #THERE-EXISTS  x //IN  //SEQUENCE-OF-ANCESTORS-OF 
dn  #SUCH-THAT  ( x //IS  <loop-statement>)  #. 

//DF  loop  (Ip  ."contains"  dn ) 

= > Ip  //IS-IN  //SEOUENCE-OF-ANCESTORS-OF  dn  #. 

//DF  innermost-loop-containing  (pt) 

= > #LAST  Ip  //IN  (//SEOUENCE-OF-ANCESTORS-OF  pt ) 
#SUCH-THAT  (Ip  //IS  <loop-statement> ) #. 


//DF  is-program-name  (dn) 

=>  point-designated-by  (dn)  IIS  <program-name>  I. 


d 


Page  ncf-67 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/05/77 
SEMANOL  Project 
Context  Sensitive  Checks 


#DF  error-message  (string) 

= > \ fOUTPUT  (string  #CW  end-of-line-char ) , 
record-ncf-error\  #. 


#DF  end-of-line-char 
=>  '[LF]'  #. 


//PROC-DF  record-ncf-error 

#ASSIGN-VALUE ! ncf-error-is-discovered  = #TRUE 
#RETURN-WITH-VALUE!  #NIL  #. 


#DF  context-sensitive-tests-of-returns-and-f or-clauses-of 
(prog) 

=>  \ test-if-returns-are-all-in-proc-decls-of  (prog)  , 
test-if-names -in -for-clauses-are-in -tables -of 
(prog) , 

test-if-distinct-loop-vrbls-in-nested-loops-of 
(prog)  \ #. 

"CED  21445.3.  A return-statement  may  appear  only  in  a 
processing  declaration." 

#DF  test-if-returns-are-all-in-proc-decls-of  (prog) 

= > #NIL  #IF  /)F0R-ALL  return-stmt  #IN 

sequence-of-returns-in  (prog)  #IT-IS-TRUE-THAT 
( ( $return-stmt , "of"  prog$)  is-in-some-proc-decl ) ; 

=>  error-message  ( ' RETURN-OCCURS-IN-MAIN-PROGRAM ' ) 
//OTHERWISE  //. 


//DF  is-in-some-proc-decl  (stmt,  prog) 

=>  #THERE-EXISTS  proc-decl  #IN  sequence-of-proc-decl-in 
(prog)  #SUCH-THAT  (($stmt,"in"  proc-decl$  )occurs  ) // . 
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#DF  occurs  (nx  ,''in''  ny) 

=>  ny  #IS-IN  #SEQUENCE-0F-ANCEST0RS-0F  nx  #. 


#DF  sequence-of-returns-in  (prog) 

=>  #SEQUENCE-0F  <return-statement > #IN  prog  #. 


#DF  sequence-of-proc-decl-in  (prog) 

=>  #SEOUENCE-OF  <process-declaration>  #IN  prog#. 

"CED  2^55.2  The  name  in  a complete  for  clause  must  be  a 
table  name  or  the  name  of  an  item  belonging  to  a 
table . ” 


#DF  test-if-names-in-f or-clauses-are-in-tables-of  (prog) 

=>  #NIL  #IF  #F0R-ALL  for-clause  #IN 

sequence-of-for-clauses-in  (prog)  #IT-IS-TRUE-THAT 
(($  name-in  (for-clause),  "in"  prog  $) 
is-tabular-name-or-nil ) ; 

=>  error-message  ( 

'FOR-CLAUSE-HAS-A-NAME-NOT-BELONGING-TO-A-TABLE'  ) 
#0THERWISE  #. 


#DF  is-tabular-name-or-nil  (nm,  "in"  prog) 

=>  #TRUE  #IF  nm  #EQW  #NIL  ; 

=>  #TRUE  #IF  ($  nm,  "in"  prog  $)  is-tabular-name  ; 
=>  #FALSE  #OTHERWISE  #. 


#DF  is-tabular-name  (nm,  "in"  prog) 

=>  #THERE-EXISTS  table-decl  #IN  ( #SEOUENCE-OF 
<table-declaration>  #IN  prog)  #SUCH-THAT 
( ( $declaration-for  (nm)  , "in"  table-decl  occurs) 

#. 
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y/DF  name-in  (for-clause) 

= > #NIL  #IF  for-clause  #IS  //CASE  1 #0F 
<complete-for-clause>  ; 

=>  #SEG  1 #0F  (#SEG  11  #0F  for-clause)  #IF  for-clause 
#IS  y/CASE  2 #0F  <complete-for-clause>  #. 


yyDF  sequence-of-for-clauses-in  (prog) 

=>  #SEQUENCE-OF  <complete-for-clause>  #IN  prog  #. 

"CED  2456.2  A for-clause  may  be  used  to  activate  only  a 
OOP  variable  that  is  not  already  active.” 


y/DF  test-if-distinct-loop-vrbls-in-nested-loops-of  (prog) 

= > #NIL  #IF  y/FOR-ALL  for-clause  #IN  (y/SEQUENCE-OF 

<one-factor-for-clause>  #U  <two-factor-f or-clause> 

#0  <complete-for-clause>  #IN  prog)  #IT-IS-TRUE-THAT 
( there -is -no-previous-activation -of  ( loop-var-of 
(for-clause),  "in" 
prog) ) ; 

=>  error-message 

( ' DUPLICATION-OF-LOOP-VARIABLES-IN-OVERLAPPING-LOOP-STATEMENTS’ ) 
yfOTHERWlSE  #. 


yyDF  there-is-no-previous-activation-of  (Ivar,  "in"  prog) 

=>  #F0R-ALL  for-clause  #IN  #SE0UENCE-0F 

<one-factor-f or-clause>  #U  <two-factor-for-clause> 
yyu  <complete-for-clause>  #IN  prog  y/IT-IS-TRUE-THAT  ( 
activation-of  (loop-var-of  ( for-clause ), "precedes" 
Ivar, "in"  prog)  #IMPLIES  loop-var-of  (for-clause) 
y/NEOW  Ivar)  #. 


y/DF  activation-of  (Ipl,  "precedes"lp2 , "in"  prog) 

= > ($lp1,  "and"lp2$ )have-common-loop  y/AND  Ipl  #PRECEDES 
lp2  #IN  prog  # . 
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#DF  have-common-loop  ( Ip-var 1 , ”and”  lp-var2) 

=>  #THERE-EXISTS  stmt  #IN  #SEQUENCE-OF-ANCESTORS-OF 
Ip-varl  #SUCH-THAT  ( stmt  #IS  <loop-statement>  #AND 
stmt  #IS-IN  #SEQUENCE-OF-ANCESTORS-OF  lp-var2)  #. 


; #DF  loop-var-of  (for-clause) 

' =>  #SEG  3 #0F  for-clause  #. 

"CED  2M29.2:  ODD  must  not  be  applied  to  a floating 
variable." 

#DF  context-sensitive-test-of-odd-modif iers-in  (prog) 

=>  #NIL  #IF  #FOR-ALL  odd-modifier  #IN 

sequence-of-odd-modif iers-in  (prog)  #IT-IS-TRUE-THAT 
I (($  odd-modifier  t)  is-not-f loating)  ; 

I =>  error-message  ( 

[ 'CED-2tt29.2-VI0LATED:-0DD-IS-APPLIFD-T0-A-FL0ATING-VARIABLE'  ) 

[ //OTHERWISE  #. 

i 

I j/DF  is-not-floating  (om) 

[ =>  //TRUE  //IFF  type  (ob ject-variable-of  (om))  #NEQW 

f 'floating'  #. 


//DF  sequence-of-odd-modif  iers-in  (prog) 

= > #SEQUENCE-OF  <special-boolean-variable>  #IN  prog  // . 


I 
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#DF  main-program-of  (system) 

"{  system  #IS  < jovial- j 3-system> } " 
->  #SEG  2 #0F  system  it. 


#DF  ther e-are-executable-units -in (prog) 

"{  prog  iHS  < jovial-j 3-program>  }" 

=>  #TRUE  #IFF  sequence-of-executable-units-in(prog) 
#NEQ  #NILSEQ  it. 


itDF  sequence-of-executable-units-in  (nx) 

"{nx  #IS  < jovial- j 3-pr’ogram>  #U  <close-subprogram>  #U 
<independent-statement>  #U  <alternative-statement>  #U 
<conditional-statement>  #U  <special-compound>  #U 
<loop-statement } #U  <unnamed-statement>  #U 
<inner-close-body>  #U  <procedure-declaration>  }” 

=>  sequence-of-close-subprogram-units-in  (nx)  #IF  nx 
itIS  <close-subprogram>  ; 

=>  sequence-of-units-implied-in 

( sequence-of-outer-executable-statements-in  (nx) ) 
#0THERWISE  it. 


"The  modifier  'implied'  requires  a sequence  of  nodes  as 
arguments,  it  suggests  that  the  lists  of  nodes  is  expanded 
due  to  the  nesting  of  the  language,  each  node  into  a series 
representing  the  nesting  of  statements  within  the  structure 
of  other  statements." 


#DF  sequence-of-close-subprogram-units-in  (nx) 

"{  nx  itlS  <close-subprogram>  }" 

=>  sequence-of-close-body-units-in  ( close-body-of  (nx) 

) #. 


1 
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#DF  sequence-of-outer-executable-statements-in  (nx) 

"{nx  #IS  <jovial-j3-program>  #U  <close-subprogram>  #U 
<independent-statement>  #U  <alternat ive-statement>  #U 
<conditional-statement>  #U  <special-f ompound>  #U 
<loop-statement>  #U  <unnamed-statement>  #U 
<inner-close-body>  #U  <procedure-declaration>  }” 

=>  #SUBSEQUENCE-OF-ELEMENTS  stmt  #IN 

sequence-of-executable-statements-in  (nx)  #SUCH-THAT 
(($  stmt, "in”  nx  $)  is-f irst-level-statement ) #. 


"The  modifier  'outer'  indicates  that  the  sequence  of  nodes 
is  that  of  a single  level  not  including  any  nodes  lower  on 
the  parse  tree . " 


#DF  sequence-of-units-implied-in  (stmt-seq) 

=>  #NILSEQ  #IF  stmt-seq  #EQ  #NILSEQ; 

=>  sequence-of-units-in-statement  ( #FIRST-ELEMENT-IN 
stmt-seq)  #CS  sequence-of-units-implied-in 
(all-but-f irst-element-in  (stmt-seq))  #OTHERWISE  #. 


#DF  sequence-of-executable-statements-in  (px) 

"{px  #IS  <program>  #U  <close-subprogram>  #U 
<independent-statement>  #U  <alternative-statement>  #U 
<conditional-statement>  #U  <special-compound>  #U 
<loop-statement>  #U  <unnamed-statement>  #U 
<inner-close-body>  #U  <procedure-declaration>  }" 

= > #SEQl)ENCE-0F  <assignment-statement > #U 

<exchange-statement>  #U  <go-to-statement>  #U 
<return-statement>  #U  <stop-statement>  #U 
<procedure-call-statement>  #U  <input-stateraent>  #U 
<output-statement>  #U  <open-input-statement>  #U 
<open-output-statement>  #U  <shut-input-statement>  #U 
<shut-output-statement>  #U  <direct-statement>  #U 
<conditional-statement>  #U  <alternative-statement> 

#U  <loop-statemerit>  #U  <test-statement>  #U 
<special-test-statement>  #U  <term-statement>  #U 
<index-switch-declaration>  #U 

<item-switch-declaration>  fU  <close-declaration>  #IN 
px  # . 
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#DF  is-f irst-level-statement  (stmt,  "in"  nx) 

=>  #TRUE  #IFF  #F0R-ALL  outer-stmt  #IN  //SEQUENCE-OF 
<compound-statement>  #U  <complex-statement>  #U 
<close-declaration>  #U  <procedure-declaration>  #IN 
nx  #IT-IS-TRUE-THAT  (outer-stmt  #IS-N0T-IN 
#SE0UENCE-0F-ANCEST0RS-0F  (stmt)  ) #. 


1 #DF  sequence-of-units-in-statement  (stmt) 

=>  sequence-of-assipnment-statement-units-in  (stmt)  #IF 
stmt  #IS  <assignment-statement>  ; 

=>  sequence-of-exchange-statement-units-in  (stmt)  #IF 
stmt  #IS  <exchange-statement>  ; 

=>  sequence-of-go-to-statement-units-in  (stmt)  #IF  stmt 
#18  <go-to-statement>  ; 

=>  sequence-of-return-statement-units-in  (stmt)  #IF 
stmt  #IS  <return-statement>  ; 

=>  \stmt\  #IF  stmt  #18  <stop-statement>  ; 

=>  \strat\  #IF  stmt  #18  <procedure-end>  ; 

=>  sequence-of-procedure-call-statement-units-in  (stmt) 
#IF  stmt  #18  <procedure-call-statement>  ; 

=>  sequence-of-input-statement-units-in  (stmt)  #IF  stmt 
#18  <input-statement>  ; 

=>  sequence-of-output-statement-units-in  (stmt)  #IF 
stmt  #18  <output-statement>  ; 

. =>  sequence-of-ooen-input-statement-units-in  (stmt)  #IF 

stmt  #18  <open-input-statement>  ; 

=>  sequence-of-open-output-statement-units-in  (stmt) 

#IF  stmt  #18  <open-output-statement>  ; 

=>  sequence-of-shut-input-statement-units-in  (stmt)  #IF 
stmt  #18  <shut-input-statement > ; 

= > sequence-of-shut-outp\jt-statement-units-in  (stmt) 
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#IF  stmt  #IS  <shut-output-statement>  ; 

=>  \stmt\  #IF  stmt  #IS  <direct-statement>  ; 

=>  sequence-of-alternative-statement-units-in  (stmt) 

#IF  stmt  #IS  <alternative-statement> ; 

=>  sequence-of-conditional-units-in  (stmt)  #IF  stmt  #IS 
<conditional-statement> ; 

=>  sequence-of-loop-units-in  (stmt)  #IF  stmt  #IS 
<loop-statement>; 

=>  sequence-of-test-units-in  (stmt)  #IF  stmt  #IS 
<test-statement>  #U  <special-test-statement>  ; 

= > \strat\  iflF  stmt  #IS  <term-statement>  ; 

=>  sequence-of-index-switch-declaration-units-in  (stmt) 
#IF  stmt  #IS  <index-switch-declaration>  ; 

=>  sequence-of-item-switch-declaration-units-in  (stmt) 
#IF  stmt  #IS  <item-switch-declaration>  ; 

=>  sequence-of-procedure-declaration-units-in  (stmt) 

#IF  stmt  #IS  <procedure-declaration> ; 

=>  sequence-of-close-declaration-units-in  (stmt)  #IF 
stmt  #IS  <close-declaration>  #. 


#DF  all-but-f irst-element-in  (seq) 

"{seq  #IS  #SEQUENCE  & #LENGTH  (seq)  > 0}" 

=>  #TERMINAL-SUBSEQ-OF-LENGTH  ( #LENGTH ( seq ) - 1)  #0F 
seq 


#DF  first-executable-unit-in-program  (prog) 

"{  prog  #EQ  < jovial-j3-program>}" 

=>  target-of  ( initial-statement-name-of ( prog ) ) #IF 
( $prog$  ) has -an-initial -statement -name ; 

=>  #FIRST-ELEMENT-IN  sequence-of-executable-units-in 
(jovial-system)  #0THERWISE  #. 
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#DF  has-an-initial-statement-nanie(prog) 

"{prog  #IS  <jovial-j3-program>}" 

=>  #TRUE  #IFF 

opt ional -initial-statement -name-0 f (term-statement-of 
( program-body-of (prog ) ) ) #NE0W  #NIL  #. 

#DF  initial-statement-name-of  (nx) 

"{  nx  #IS  <jovial-j3-program>  #U 
<opt ional -in i t ial -sta t emen t-name > } " 

=>  #SEG  1 #0F  nx  #IF  nx  #IS 

< opt ional -in itia 1-st at emen t -name > ; 

= > 

initial-statement-name-of (opt ional -initial-statement-name-of 
( term-statement-of (program-body-of (nx )))) #IF  nx  #IS 
< jovial-j3-program>  #. 

#DF  op tional-init ial -statement-name-of (term-stmt ) 

"{term-stmt  jlflS  <term-statement>}" 

=>  #SEG  3 #0F  term-stmt  #. 

//DF  term-statement-of  (prog) 

"(prog  #IS  <program>}" 

=>  #SEG  5 #0F  prog  #. 

#DF  program-body-of  (prog) 

"(proe  ifIS  <jovial-j3-Dr’ogram>}" 

=>  #SEG  2 #0F  prog 

#DF  is-not-terminator(nx) 
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•'{  nx  #EQ  current-executable-unit  }" 

=>  #TRUE  #IFF  nx  #IS-N0T  <stop-statement>  #U 
<term-statement>  #. 


#DF  computational-ef fect-of  (unit) 

"{unit  #EQ  current-executable-unit}" 

=>  assignment-statement-ef fect-of (unit ) #IF  unit  #IS 
<assignment-statement> ; 

=>  exchange-statement-ef fect-of  (unit)  #IF  unit  iHS 
<exchange-statement> ; 

=>  procedure-call-ef fect-of  (unit)  #IF  unit  #IS 
<procedure-call-statement>  ; 

=>  procedure-return-ef f ect-of  (unit)  #IF  ($unit$) 
is-a-return-f rom-a-procedure ; 

=>  return-statement-ef fect-of  (unit)  #IF  unit  #IS 
<return-statement> ; 

=>  #NIL  #IF  ($unit$) 

is-unit-unique-to-alternative-statement  #0R  ($unit$) 
is-unit-unique-to-conditional-statement  #0R  ($unit$) 
is-branch-control-unit-of-loop-statement  #0R  ($  unit 
$)  is-unique-to-a-close  #0R  ($  unit  $) 
is-unit-unique-to-go-to-statement  ; 

=>  loop-statement-ef fect-of  (unit)  #IF  ($unit$) 
is-index-control -unit -of- loop-statement  ; 

=>  evaluation-ef fect-of (unit ) #IF  ($unit$) 
is-operation-or-primitive-operand  # . 


il^DF  executable-unit-successor-of  (unit) 

"{unit  #EQ  current-executable-unit}" 

=>  assignment-statement-unit-successor-of  (unit)  #IF 
unit  UlS  <assignment-statement>  ; 

=>  exchange-statement-unit-successor-of  (unit)  #IF  unit 
#IS  <exchange-statement> ; 

=============r=========  control-76  ===r=======z======r r r == 
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=>  alternative-statement-unit-successor-of  (unit)  #IF 
( $unit$)  is-unit-unique-to-alternative-statement ; 

=>  conditional-statement-unit-successor-of  (unit)  #IF 
( $unit$ ) is-unit-unique-to-conditional-statement ; 

=>  loop-statement-unit-successor-of  (unit)  #IF  ($unit$) 
is-branch-control-unit-of -loop-statement ; 

=>  sequential-control-unit-successor-of  (unit)  #IF  unit 
#IS  <sequence-designator>  ; 

=>  first-unit-in  (sequence-of-units-in-statement 
(statement-following  (unit)  ) ) #IF  unit  y/IS 
<index-switch-declaration>  #U 
<item-switch-declaration>  ; 

=>  close-unit-successor-of  (unit)  #IF  ($  unit  $) 
is-unique-to-a-close  ; 

=>  procedure-unit-successor  (unit)  #IF  ($unit 
$ ) is-unique-to-a-procedure ; 

=>  procedure-call-successor  (unit)  #IF  unit  #IS 
<procedure-call-statement>  ; 

=>  return-statement-successor-of  (unit)  #IF  unit  #IS 
<return-statement> ; 

=>  simple-successor-unit-of  (unit)  #IF  ($unit$) 
is-ind ex-control -unit -of -loop-statement  ; 

=>  evaluation-successor-of (unit ) #IF  ($unit$) 
is-operation-or-primitive-operand  7/ . 


#DF  sequence-of-assignment-statement-units-in  (stmt) 

”{  stmt  #IS  <assignment-statement>  }" 

=>  sequence-of-evaluation-units-in  ( lef t-hand-side-of 
(stmt))  #CS  sequence-of-evaluation-units-in 
( right-hand-side-of  (stmt))  #CS  \stmt\  #. 


#DF  right-hand-side-of  (stmt) 
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"{  stmt  #IS  <assignment-statement>  #U 
<exchange-statement>  }” 

=>  #SEG  5 #0F  stmt  #. 


#DF  lef t-hand-side-of (stmt ) 

”{stmt  #IS  <assignment-statement>  #U 
<exchange-statement>} " 

=>  #SEG  1 #0F  stmt  #. 


#DF  assignment-statement-unit-successor-of  (unit) 

"{  unit  #IS  <assignment-statement>  #AND  unit  #EQ 
current-executable-unit  }" 

=>  simple-successor-unit-of  (unit)  #. 


#DF  assignment-statement-ef fect-of  (stmt) 

"{  stmt  #IS  <assignment-statement> } ” 

=>  assign-effect 

(left-hand-side-of (stmt) , right-hand-side-of  (stmt) ) 

#. 


#DF  assign-effect  ( receiver-exp , valued-exp ) 

=>  entry-assign(result-of (valued-exp) , "to” 
receiving-variable-of  (receiver-exp))  #IF 
receiving-variable -of (receiver-exp)  #IS 
<entry-variable>  #AND  operandl-of  (valued-exp)  #IS 
<entry-variable>#U  <zero>; 

=>  status-assign  (result-of  (valued-exp),  "to" 
receiving-variable-of  (receiver-exp))  #IF  type 
(receiving-variable-of  (receiver-exp))  #EQW  'status' 
#AND  type  (operandl-of  (valued-exp))  #EQW  'status'; 

=>  boolean-assign ( result-of  (valued-exp),  "to" 
receiving-variable-of  (receiver-exp))  #IF  type 
( recei''ing-variable-of(  receiver-exp ) ) #EQW  'boolean' 
//AND  type  (operandl-of  (valued-exp))  #EQW  'boolean'; 
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= > literal-assign  (operand  1 -of (valued-exp ) , ”to" 
receiving-variable-of  (receiver-exp))  #IF  type 
( receiving-variable-of  (receiver-exp))  #IS-IN 
\ ' hollerith transmission-code ' \ #AND  type 
(operand 1-of  (valued -exp ) ) #IS-IN 
Vhollerith'  , * transmission-code ' octal ' \ ; 

=>  numeric-assign(operand 1-of (valued-exp) , "to” 
receiving-variable-of  (receiver-exp))  #IF  type 
(receiving-variable-of  (receiver-exp))  #IS-IN 
\ ' floating fixed integer ' \ #AND  type 
(operand 1-of  (valued-exp))  #IS-IN 
\ ' floating ' , ' fixed ' , ' integer ' , ' zero ' \ #. 


#DF  entry-assign  ( val , rec-var ) 

=>  generalized -assign -latest -value 

( standard-ref erence-address-of(  rec-var ) , "receives" 
($val,  "to"  entry-size  (rec-var)$) 
adjusted-in-leftmost-bits)  #. 


#DF  entry-size  (rec-var) 

"{rec-var  #IS  <entry-variable> } " 

=>  number-of-words-per-entry-in  (declaration-for 
( tabular-name-of  (rec-var)))  * bits-per-word  #. 


#DF  adjusted-in-leftmost-bits  (val,  "to"  n "bits") 

=>  #RIGHT  n #CHARACTERS-OF  (($n$)  zeroes  #CW  val)  #. 


*/DF  status-assign  (val,  rec-var) 

=>  generalized -assign -la test -value 

(standard-reference-address-of  (rec-var),  "receives" 
( $val , "to"  size  (rec-var)$) 
adjusted-in-leftmost-bits)  #. 


#DF  size  (rec-var) 

" f ( .♦rec-var^  ) is-a-variable } " 
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=>  size-from-standard -reference -address 

( standard-reference-address-of  (rec-var))  #. 


#DF  size-f rom-standard-reference-address  (s-ref-addr) 
=>  nr-of-bits-in  (s-ref-addr)  #. 


#DF  boolean-assign  (val,  rec-var) 

=>  generalized -as sign -la test -value 

(standard-reference-address-of  (rec-var),  "receives" 
val)  #. 


#DF  literal-assign  (operand,  "to"  rec-var) 

=>  generalized-assign-latest -value 

(standard-reference-address-of  (rec-var),  "receives" 
adjusted-literal  (operand,  "to"  size  (rec-var)))  #. 

#DF  adjusted-literal  (operand,  "to"  n "bits") 

=>  #RIGHT  n #CHARACTERS-0F  (latest-value  (operand))  #IF 
#LENGTH  (latest-value  (operand))  > n; 

=>  padded-literal-value  (operand,  "to"  n)  #OTHERWISE  #. 


#DF  numeric-assign  (operand,  rec-var) 

=>  generalized -assign-latest -value 

(standard-reference-address-of  (rec-var),  "receives" 
floating-latest-value  (operand))  #IF  type  (rec-var) 
#EQW  ' floating* ; 

=>  generalized -assign-la test -value 

(standard-reference-address-of  (rec-var),  "receives" 
integer-latest-value  (operand))  #IF  type  (rec-var) 
#EQW  ' integer ' ; 

=>  generalized -assign -latest- value 

(standard-reference-address-of  (rec-var),  "receives" 
fixed-latest-value  (operand,  "with"  attributes 
(rec-var)))  #IF  type  (rec-var)  #EQW  'fixed*  #. 
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#DF  fixed-latest-value  (operand,  "with"  attr) 

=>  { $latest-value  (operand),  "to"  attr  $) 

converted-integer-to-f ixed  #IF  type  (operand)  #EQW 
’ integer ' ; 

=>  ( $latest-value  (operand),  "to"  attr$) 

converted-f ixed-to-f ixed  #IF  type  (operand)  #EQW 
' fixed  * ; 

=>  { $latest-value  (operand),  "to"  attr$) 

converted-floating-to-fixed  #IF  type  (operand)  #EQW 
•floating'  #. 


#DF  converted-integer-to-fixed  (operand,  "to"  attr) 

=>  implementation-left-arithmetic-shift  (latest-value 
(operand),  "by"  f raction-bits-f rom  (attr))  #. 


#DF  converted-f ixed-to-f ixed  (operand,  "to"  attr) 

=>  implementation-left-arithmetic-shift  (latest-value 
(operand),  "by"  fraction-bits-f rom  (attr)  - 
f raction-bits-f rom  (attributes  (operand)))  #. 


#DF  converted-floating-to-fixed  (val,  "to"  attr) 

=>  #LEFT  bits-per-word  #CHARACTERS-OF 
implementation-left-arithmetic-shift 
( floa ting-man t is sa-f rom  (extended-precision-form-of 
(val)),  "by"  ($f loating-exponent-f rom 
( extended-precision-form-of  (val ) ) $ ) 
converted-to-standard-form  + 1 + fraction-bits-f rom 
(attr)  - bits-in-floating-mantissa  + 1)  #. 


#DF  sequence-of-exchange-statement-units-in  (stmt) 

"{  stmt  #IS  <exchange-statement>  }" 

=>  sequence-of-evaluat ion-uni ts-in 
( left-hand-side-of (stmt ) ) #CS 
sequence -of -evaluation -uni ts-in 
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(right-hand-side-of (stmt ) ) #CS  \stmt\  #. 

#DF  exchange-statement-unit-successor-of  (unit) 

”{  unit  //IS  <exchange-statement>}" 

= > simple-successor-unit-of  (unit)//. 

//PROC-DF  exchange-statement-ef fect-of  (stmt) 

"{stmt  #IS  <exchange-statement>}'' 

♦COMPUTE!  assign-effect  ( lef t-hand-side-of  (stmt), 
right-hand-side-of  (stmt)) 

//COMPUTE!  assign-effect  ( right-hand-side-of  (stmt ) , 
lef t-hand-side-of  (stmt)) 

♦RETURN-WITH-VALUE!  #NIL  #. 

#DF  sequence -of -index-switch-declaration-units-in (stmt ) 

"{  stmt  #IS  <index-switch-declaration>  }" 

= > \stmt\  //CS  index-switch-designator-units-implied-in 
(sequence -of- index-switch-points-in 
(index-sw  itch-list -of(stmt )))//. 

//DF  index-switch-list-of (stmt ) 

"{stmt  //IS<index-switch-declaration>}” 

= > #SEG  9 #0F  stmt  //. 

//DF  sequence-0 f- index-sw itch-points-in(iswlist) 

”{iswlist//IS<index-sw  itch-list  >}" 

=>  \optional-sequence-designator-of (iswlist)\  #IF 

( $iswlist$ ) has- just-one-optionai -sequence-designator ; 

= > \optional-sequence-designator-of  ( iswlist  )\  //CS 
sequence-of -index-switch-points-in 
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( index-swi t ch-1 is t -of- t railing-designators- in 
(iswlist))  #0THERWISE  #. 

#DF  has- just -one-optional -sequence-designator (iswlist ) 

"{iswlist  #IS  <index-switch-list>}" 

=>  #TRUE  #IFF  iswlist  #IS  #CASE  1 #0F 
< index-switch-1 is t># . 

#DF  optional-sequence-designator-of (iswlist ) 

"(iswlist  #IS  <index-switch-list> } " 

=>  #SEG  1 #0F  iswlist  #. 

#DF  index-switch-list -of- trailing-designators-in ( iswlist ) 

"{  iswlist  #IS  #CASE  2 #0F  <index-switch-list>}" 

=>  #SEG  5 #0F  iswlist#. 

#DF  index-switch-designa tor-uni ts-implied-in ( seq ) 

"{#F0R-ALL  element  #IN  seg  #IT-IS-TRUE-THAT  (element 
#IS  <opt ional -sequence -desi gnat or > } " 

=>  fNILSEO  #IF  seq  #E0  #NILSEQ; 

=>  index-switch-designa tor-uni ts-implied-in 
(all-but-first-element-in  (seq))  #IF 
#FIRST-ELEMENT-IN  seq  #EQW  #N1L; 

=>  units -in -sequence-designator ( sequence -designator-of 
(#FIRST-ELEMENT-IN  seq))  #CS 
index-switch-designator-uni ts-implied-in 
( all-but-f irst-element-in ( seq ) ) #0THERWISE  #. 

#DF  sequence-of-item-switch-declaration-units-in  (stmt) 

"{  stmt  #IS  <item-switch-declaration>}" 

=>  \stmt\  #CS  item-switch-designator-units-implied-in 
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I (sequence -of -item-switch -points -in 

\ (item-switch-list -of (stmt) ) )#. 

f 

I 

f #DF  item-switch-list-of (stmt ) 

I "{stmt  #IS<item-switch-declaration>}" 

i =>  #SEG  15  #0F  stmt  #. 

i #DF  sequence-of-item-switch-points-in  (iswlist) 

"{  iswlist  #IS  <item-switch-list>} " 

I =>  \item-switch-case-expression-of( iswlist )\  #IF 

; ( $iswlist$ ) has- just -one-case-expression ; 

I =>  \item-switch-case-expression-of  (iswlist)\  #CS 

sequence-of-item-switch-points-in 

( item-switch-1 is t-of-trailing-cases-of  ( iswlist ) ) 

//OTHERWISE#. 

#DF  item-switch-case-expression-of ( iswlist ) 

; "(iswlist  #IS  <item-switch-list>} " 

■ =>  #SEG  1 #0F  iswlist  #. 

//DF  has- just-one-case-expression  ( iswlist ) 

"(iswlist  #IS  <item-switch-list>}" 

= > iswlist  //IS  //CASE  1 #0F  <item-switch-list>  #. 

//DF  item-switch-lis  t-of-trailing-cases-of  (iswlist ) 
"(iswlist  //IS  //CASE  2 #0F  <item-switch-list>}" 

=>  #SEG  5 #0F  iswlist  #. 

//DF  item-switch-designator-units-implied-in  (seq) 

I "{  #F0R-ALL  element  //IN  seq  #IT-IS-TRUE-THAT  (element 

= = = = = = = = = = = = = = = = z = = = rr  = COntrol-8it  ==r  = = r = = = = = = z = = = = = = = = 

i 
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#IS  <item-switch-case-expression> ) }" 

=>  #NILSEQ  #IF  seq  #E0  #NILSE0  ; 

=>  units-in-sequence-designator  (sequence-designator-of 
(#FIRST-ELEMENT-IN  seqn#CS 
item-switch -designs tor-units -implied -in 
(all-but-first-element-in(seq) ) #0THERWISE  #. 


#DF  sequence-of-close-declaration-units-in  (stmt) 

"{stmt  #IS  <close-declaration>}” 

=>  \stmt\  #CS  sequence-of-close-body-units-in 
( close-body-of  (stmt))  #. 


#DF  close-body-of  (nx) 

”{nx  #IS  <close-subprogram>  #U  <close-declaration>}" 
=>  #SEG  7 #0F  nx  #.  . 


#DF  sequence-of-close-body-units-in  (cbody) 

"{cbody  #IS  <close-body>  #U  <close-subprogram-body > } " 

=>  sequence-of-executable-units-in  ( inner-close-body-of 
(cbody))  #CS  \close-terminator-of  (cbody)\  #. 

#DF  inner-close-body-of  (cbody) 

"{cbody  #IS  <close-body>  #U  <close-subprogram-body > } " 

= > #SEG  3 #0F  cbody 


#DF  close-terminator-of  (cbody) 

"(cbody  #IS  <close-body>  #U  <close-subprogram-body > } " 
= > #SEG  5 #0F  cbody  it. 


itDF  is-unique-to-a-close  (unit) 
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"{unit  #EQ  current-executable-unit}" 


=>  #TRUE  #IFF  unit  #IS  <close-declaration>  #U 
<close-subprogram-terra>  #U  <close-end>  #. 


#DF  close-unit-successor-of  (unit) 


"(unit  #IS  <close-declaration>  #U 
<close-subprogram-term>  #U  <close-end> } " 


=>  simple-successor-unit-of  (close-terminator-of 
( close-body-of  (unit)))  #IF  unit  #IS 
< close -dec larat ion > ; 


=>  simple-successor-unit-of  ( caller-of-close 

(close-containing  (unit)))  #IF  unit  #IS  <close-end> 
#U  <close-subprogram-term>  #. 


#DF  close-containing  (unit) 

"{unit  iflS  <close-end>  #U  <close-subprogram-term> } " 


:>  #LAST  close  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  (unit)  ) 
#SUCH-THAT  (close  #IS  <close-declaration>  #U 
<close-subprogram> ) #. 


#DF  caller-of-close  (close) 

"{close  #IS  <close-declaration>  #U  <close-subprogram} " 


=>  #LATEST-VALUE  ( close-return-point-unique-to  (close)) 
if. 


#DF  close-return-point-unique-to  (close) 

"{close  #IS  <close-declaration>  #U  <close-subprogram> } " 


=>  ’close-return-point  $’  #CW  (#0RDP0SIT  close  #IN 
sequence-of-nodes-in  (//ROOT-NODE  (close)))  #. 


ifdF  is-unit-unique-to-go-to-statement  (unit) 


I? 

1 
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”{  unit  #EQ  current-executable-unit  }" 

=>  #TRUE  #IFF  ( unit  #IS  <index-switch-declaration>  #U 
<item-switch-declaration>  #U  <sequence-designator>  ) 

#. 

#DF  sequence -of -go- to-statement -units -in ( stmt ) 

”{  stmt  #IS  <go-to-statement>}” 

= > 

units-in-sequence-designator ( sequence-designator-of ( stmt ) ) # . 

#DF  sequence-designator-of (nx ) 

”{  nx  #IS  <go-to-statement>  y/U 
<optional -sequence -desi gnat or > #U 
<item-switch-case-expression>} ” 

= > #SEG  3 #0F  nx  #IF  nx  yiHS<go-to-statement> ; 

=>  #SEG  1 #0F  nx  #IF  nx 

yy  IS  <optional -sequence -designator>; 

= > #SEG  5 #0F  nx  yyiF  nx  #IS 

<item-switch-case-expression>yy . 

y/DF  units-in-sequence-designator(sd ) 

"{sd  #IS  sequence-designator}" 

=>  sequence -of-evaluat ion -units-in 

(destination-index-of ( sd ) ) #CS\sd\  #IF 
($sd$)has -a -destination-index; 

= > \sd\  yyOTHERWISE  y/. 

y/DF  has-a-destination-index (sd ) 

”{sd  #IS  <sequence-designator> } " 

= > sd  #IS  #CASE  2 #0F  <sequence-designator  >yy . 
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#DF  sequential-control-unit-successor-of  (sd) 

"{sd  #IS  <sequence-designator>}” 

=>  switched-on-successor-of  (sd)  #IF 
($sd$)designates-a-switch  ; 

=>  close-invocation-successor-of (sd ) #IF 
( $sd$ ) constitutes -a -close -in vocation ; 

=>  naraed-statement-successor-of (sd)  #IF 
( $sd$)designates-a-named-statement  #. 


#DF  designates-a-switch  (sd) 

”{sd  #IS  <sequence-designator>}” 

=>  #TRUE  #IFF  target-of  (destination-name-of (sd) ) #IS 
<itein-switch-declaration>  #U 
<index-switch-declaration>  #. 


#DF  target-of (dest-name ) 

”{  dest-name  #IS  <destination-name>  #U 
<ac tua 1 - in put -close -par ameter>  #U 
< actual -out put-destination-parameter>  } " 

" {#0N-return : target-of  #IS  <statement>  #U 
<close-declaration>  #U  <close-subprogram>  #U 
<item-switch-declaration>  #U 
<index-switch-declaration>}” 

=>  target-determined-using  (category-2-declaration-for 
(dest-name)  ) #. 


#DF  target-determined-using  (decl) 

"{decl  #IS  <statement>  #U  <close-declaration>  #U 
<index-switch-declaration>  #U  <item-switch-declaration> 
#U  <program-declaration>  #U 
<f ormal- input -close -parameter > #U 
<formal-output-destination-parameter>}" 

=>  decl  #IF  decl  #IS  <statement>  #U  <close-declaration> 
0U  <close-subprogram>  #U  <index-switch-declaration> 


L. 
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#U  <item-switch-declaration> ; 

=>  target-determined-using  (latest-value-assigned-to 
(decl))  #IF  decl  #IS  <formal-input-close-parameter > 
#U  < formal-out put -destination-parameter> ; 

=>  library-close-subprogram-referred-to-by  (decl)  #IF 
decl  #IS  <program-declaration>  #. 


#DF  latest-value-assigned-to  (control-parameter) 

"{control-parameter  #IS  <f ormal-input-close-parameter> 
#U  < formal -output-destinat ion -par ame t er>} " 

=>  #LATEST-VALUE 

( unique-control -variable -associated -with 
(control-parameter))  #. 


#DF  unique-control-variable-associated-with  (cp) 

"{cp  #IS  <formal-input-close-parameter>  #U 
< formal -output-destinat ion-parameter > } " 

=>  'control-parameter-variable  $'  #CW  (#0RDP0SIT  cp  #IN 
( sequence-of-nodes-in  (#R00T-N0DE  (cp))))  #. 


#DF  library-close-subprogram-referred-to-by  (decl) 

"(decl  #IS  <program-declaration>} " 

=>  #FIRST  close  #IN 

sequence -of-library-close-subprograms-in 
(system-containing  (decl))  #SUCH-THAT 
(name-declared-by  (decl)  #E0W  name-of  (close))  #. 


/ifDF  name-of  (close) 

"{close  y/IS  <close-subprogram> } " 
=>  #SEG  3 #0F  close 


#DF  system-containing  (nx) 
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"{nx  #IS  #N0DE}'' 

=>  #R00T-N0DE  (nx)  #. 

#DF  sequence-of-library-close-subprograms-in  (sys) 

”{sys  #IS  <jovial-j3-system>}'' 

=>  #SEQUENCE-0F  <close-subprogram>  #IN 
optional-library-of  (sys)  #. 

#DF  optional-library-of  (sys) 

"{sys  #IS  < jovial- j 3-system> } ” 

= > #SEG  #0F  sys  #. 

#DF  destination-name-of (sd) 

"{  sd  #IS  <sequence-designator>  }” 

=>  #SEG  1 #0F  sd  #. 

#PR0C-DF  switched-on-successor-of (sd) 

"{  sd  y/IS  <sequence-designator>  #AND 
( $sd$ )designates-a-switch} " 

#C0MPUTE!  #ASSIGN-LATEST-VALUE 
(default-switch-destination-unique-to 
(switch-designated-by (sd) ) , "receives" 
default-successor-of (sd ) ) 

#RETURN-WITH- VALUE ! switch-successor-of-designator ( sd ) 

#DF  default-switch-destination-unique-to  (sw) 

"{  sw  #IS  <index-switch-declaration>  #U 
<item-switch-declaration>} " 

=>  ’default-switch-destinat ion$ ' #CW  ( #0RDP0SIT  sw  #IN 
sequence-of-nodes-in ( #R00T-N0DE(sw) ) ) #. 

r====r =================  control-90  ======================= 
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#DF  switch-designated-by (sd ) 

"{  sd  #IS  <sequence-designator>  #AND 
( $sd$ )designates-an -index-switch } ” 

=>  target-of  ( destination-name-of ( sd ) ) #. 


#DF  def ault-successor-of (sd ) 

”{  sd  /tIS  <sequence-designator>  #AND 
( $sd$ ) designs tes-a-switch } " 

=>  simple-successor-unit-of (sd ) #IF 

innermost-execut able -statement -cent a in ing(sd ) #IS 
<go-to-statement> ; 

=>  #LATEST-VALUE  (default-switch-destination-unique-to 
( switch-containing ( sd ) ) ) #IF 

innermost -executable-statement -containing ( sd ) #IS 
<item-switch-declaration>  #U 
<index-switch-declaration>  #. 


#DF  switch-containing (sd ) 

" { innermost -executable -statement -containing ( sd ) #IS 
<index-switch-declaration>  #U 
<item-switch-declaration>} " 

=>  innermost-executable-statement-oontaining (sd ) #. 


#DF  innermost-executable-statement-containing (nx ) 

"{nx  #IS  #N0DE}" 

=>  #LAST  ancestor  #IN  ( #SE0UENCF-0F-ANCEST0PS-0F(nx)  ) 
#SUCH-THAT  ((j!ancestori;)is-an-executable-statement) 

# . 


#DF  switch-successor-of-designator(sd) 

" {sd  #IS  <sequence-des.ignator> 
#AND($sd$)designates-a-switch}" 
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=>  item-switch-successor-of-designator (sd ) #IF 
( $sd$ )designates-an-item-switch ; 

=>  index-switch-successor-of-designator(sd)  #IF 
( $sd$ )designates-an-index-switch  #. 


#DF  designates-an-item-switch(sd ) 

"{  sd  #IS  ''sequence-designator>  #AND 
( $sd$ ) designates -a -switch } " 

->  #TRUE  #IFF 

switch-designated-by (sd)#IS<item-switch-declaration># . 


I 


#PR0C-DF  item-switch-successor-of-designator (sd) 

”{sd  #IS  <sequence-designator>  #AND 
($sd$)designates-a-switch}" 

^COMPUTE!  assign-latest-value  (comparator-variable 
( switch -designs ted -by (sd ) ) , "receives” 
comparison-variable-value-of 

( compare t or-var iable ( sw it ch-designated-by(sd)), "using” 
index -counts  (desti nation -index -of(sd)))) 

#RETURN-WITH- VALUE! 

unit-selected-from-i tern- switch ( switch -designs ted -by 
(sd))#. 


#DF  comparison-variable-value-of  (var,  "using"  index-vals) 

”{var  #IS  <simple-variable>  #AND  #F0R-ALL  x #IN 
index-vals  #IT-IS-TRUE-THAT  ( x >=  0 ) }” 

=>  generalized-latest-value 

( indexed-standard-ref erence-address  (var,  "using” 
index-vals))  #. 


#DF  index-counts(di ) 

"{di  #IS  <destination-index> } " 

=>  index-values  ( index-list-of  (di))  #. 


control-92 


r 

AO*AO«9 

UNCLASSIFIED 

TRW  DEFENSE 
SEMANOL  (76) 
NOV  77  F C 1 

(ND  SPACE  systems  6RC 
SPECIFICATION  OF  JON 
)EL2*  I M OREEN 

)UP  REOONDO  beach  calif  F/6  9/2 

^AL  (J3).  VOLUME  III.(U) 

F30602-76-C-023a 
RADC-TR-77-365-V0L-3  NL 

S 

1 

2of4 

AO 

A049474 

B 

1 

1 

1 

i 

_ J 

■ 

J 

Page  control-93 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/05/77 
SEMANOL  Project 
Control 


#DF  index-list-of (nx) 

”{nx  #IS  <destination-index>  #U  <indexed-variable>  #U 
<special-integer-variable>  #U  <special-f ixed-variable> 
}" 

=>  #SEG  1 #0F  nx  #IF  nx  #IS  <destination-index> ; 

=>  #SEG  5 #0F  nx  #OTHERWISE 

#DF  index-values  (ix-list) 

”{ix-list  #IS  <index-list>}" 

=>  \f irst-index-value ( ix-list ) \ #iF 
($ ix-list $)has -only-one -index ; 

=>  \first-index-value( ix-list )\  ICS 

index-values(rest-of-index-list  (ix-list) ) 
//OTHERWISE  #. 

IDF  has-only-one-index  (ix-list) 

”{ix-list  IIS  <index-Iist>}” 

=>  ITRUE  IIFF  ix-list  IIS  ICASE  1 lOF  <index-Iist>  #. 

I 

IDF  rest-of-index-list ( ix-list ) 

"{ix-list  IIS  ICASE  2 lOF  <index-list>} " 

=>  ISEG  5 lOF  ix-list  I. 

IDF  uni t-selected-from-i tern-switch (switch ) 

"{  switch  IIS  <item-switch-declaration> } " 

=>  first-unit-in (uni ts-in-sequence-designa tor 
(sequence-desienator-of 

(item-switch-point-selected-in  (switch)  )))  IIF 
a -switch-point-can-be -selected -in (switch ) ; 
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#L ATEST- VALUE (default -switch-destination-unique- to ( switch ) ) 
^OTHERWISE  #. 


#DF  a-switch-point-can-be-selec ted -in (switch) 

"{switch  #IS  <item-switch-declaration> } " 

=>  #TRUE  #IFF  #THERE-EXISTS  case-expr  #IN 
sequence -of -it era-switch -points -in 
(item-switch-list-of (switch) ) #SUCH-THAT 
( ( $comparator-variable(switch) , "and" 
selector-constant-of  (case-expr)  $) 
are-determined-to-be-equal)  #. 


#DF  item-switch-point-selected-in( switch) 

"{switch  #IS  <item-switch-declaration>}" 

=>  #FIRST  case-expr  #IN 

sequence-of-item-switch-points-in 
(item-switch-list-of(5witch))  #SUCH-THAT  ( 

( $comparator-variable 

( switch) , "and"selector-constant-of (case-expr ) $ ) 
a re -determined -to-be -equal ) # . 


#DF  are-determined-to-be-equal  (var,  "with"  const) 

"{  var  #IS  <simple-variable>  #AND  const  #IS 
< general -const ant >} " 

=>  #TRUE  #IFF  switch-relation 

( var , typed-constant (const ) ) #EQW  ' = * 


#DF  typed-constant  (const) 

"{const  #IS  <general-constant>)" 

=>  #F1RST  x #IN  (#SEQUENCE-0F-N0DES-IN  const) 
#SUCH-THAT  ( ($x$)is-a-constant)  #. 


#DF  switch-relation  (var, const) 
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”{var  #IS  <simple-variable>  #AND  ($const$) 

is-a-constant}** 

=>  implementation-status-compare  (latest-value  (van), 

"with"  latest-value(const ) ) #IF  type(var)  #EQW  'status' 
#AND  type  (const)  #EQW  'status'; 

=>  literal-compare(  normalized-literal  ( var,  "wrt" 

const),  "with"  normalized-literal  (const, "wrt"  var)) 
#IF  ($var$)is-literal-object  #AND 
( $var$)is-iiteral-object ; 

=>  implementation-floating-compare 

(floating-latest-value  (var).  "with" 
floating-latest-value  (const))  #IF  type(var)  #E0W 
'floating'  #AND  type(var)  #E0W  'floating'; 

=>  implements t ion-in teger-and -fixed -point -compare 
( la test -value (var ) , 

attributes (var) , la test -value (const ) , attributes (const ) ) 
#1F  type(var)  #IS-IN  \ ' integer ',' fixed ' \ #AND 
type(const)  #IS-IN  N'integer',  ' fixed ',' octal ' \ #. 


#DF  selector-constant-of (case-expr ) 

"{case-expr  #IS  <item-switch-case-expression> } " 
=>  #SEG  1 #0F  case-expr  #. 


I #DF  comparator-variable  (switch) 

[ 

I "{  switch  #IS  <item-switch-declaration> } " 

i =>  #SEG  7 #0F  switch  #. 

i 

t 

I #DF  designates-an-index-switch (sd ) 

f 

: "{sd  #IS  <sequence-designator>//AND 

( $sd$ ) designs tes-a-switch } " 

=>  #TFUE  #IFF  switch-designated-by(sd) 
#IS<index-switch-declaration>#. 
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#DF  index-switch-successor-of-designator (sd) 


”{  sd  #IS  <sequence-designator>  #AND 
( $sd$ )has-a-destination-index  iAND 
( $sd$)designates-an-ind ex-switch}” 


= > 


un i t -se lec t ed -f r om-inde x-s wit ch (switch -designs ted -by (sd ),” using” 
index-count(sd) ) #. 


#DF  index-count(sd) 

”{sd  #IS  <sequence-designator>#AND 
( $sd$)has-a-destinat ion-index}” 

=>  first-index-value  (index-list-comprising 
( destination-index-of  (sd)  ))  #. 


iifDF  first-index-value  (ix-list) 

”{  ix-list  #IS  <index-list>  }” 

= > ($  integer-latest-value  (operand  1-of 

(numeric-formula-of  ( f irst-index-formula-in 
(ix-list)  )))  $)  converted-to-standard-forra  #, 


#DF  destination-index-of (sd ) 

"{  sd  #IS  <sequence-designator>  #AND 
( $sd$ )has-a-desti nation -index}" 

=>  #SEG  5 #0F  sd  #. 


#DF  unit-selected-f rom-index-switch  (switch,  "using”  count) 

”{  switch  #IS  <index-switch-declaration>  #AND  count  #IS 
lINTEGERl” 

=>  first -unit -in  ( units- in-sequence-designator 

(sequence-designator-selected-in  (switch,  "using” 
count)))  #IF 

a -sequence -designator-is -properly- indexed -in 
(switch,  "by”  count)  ; 
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=>  #LATEST-VALUE  (default-switch-destination-unique-to 
(switch))  fOTHERWISE  #. 


#DF  a-sequence-designator-is-properly-indexed-in  (switch, 
"by"  count) 

"{  switch  #IS  <index-switch-declaration>#AND  count  #IS 
# INTEGER}" 

=>  IFALSE  #IF  0>count  #0R  count  >= 

#LENGTH( sequence-of-index-switch-points-in 
( index-switch-list -of (switch) ) ) ; 

=>  #FALSE  #IF 

sequence -designs tor-selected -in ( switch , "by "count ) 
#EQW  #NIL  ; 

=>  #TRUE  #0THERWISE  #. 


#DF  sequence-designator-selected-in( switch , "using" count ) 

"{switch  y/IS  <index-switch-declaration>  #AND  count  #IS 
#INTEGER  }" 

=>  sequence-designator-of 

(index-switch-point-selected-in  (switch,  "using" 
count))  #. 


y/DF  index-switch -point -selected -in  (switch  , "using" count ) 

"(switch  #IS  <index-switch-declaration>  #AND  0<=count 
#AND  count  < #LENGTH  ( 

sequence-of-index-switch-points-in(index-switch-list-of (switch) ) ) } 

=>  (count+1)  #TH-ELEMENT-IN 

sequence -of -index-switch-points-in 
( index-switch-list-of (switch ) ) #. 


#DF  constitutes-a-close-invocation (sd ) 

"(sd  #IS  <sequence-designator>  lAND 
#N0T( $sd$)has-a-des tinat ion-index}" 

= > #TRUE  yfIFF  target-of  (destination-name-of  ( sd  ) ) #IS 
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<close-declaration>  #U  <close-subprogram>  #. 


#PR0C-DF  c lose -invocation -successor-of(sd) 

”{sd  #IS  <sequence-designator>  #AND 
( $sd$)constitutes-a-close-invocation }” 

#C0MPUTE!  #ASSIGN-LATEST- VALUE 
(close-return-point-unique-to  ( target-of 
( destination-name-of  (sd))  ) ."receives”  sd) 

#RETURN-WITH- VALUE!  #FIRST-ELEMENT-IN 
( sequence-of-close -body-units -in  ( close-body-of 
(target-of  (destination-narae-of  (sd)))))  #. 


#DF  designates-a-named-statement (sd ) 

"{  sd  #IS  <sequence-designator>}" 

=>  #TRUE  #IFF  target-of  (destination-name-of (sd ) ) #IS 
<statement>  #. 


#DF  named-statement-successor-of (sd) 

"{sd  #IS  <sequence-designator>  ^?AND 
( $sd$ ) designates-a-named-statement } " 

=>  first-executable-unit-in  (unnamed-statement-part-of 
( target-of  (sd)))  #. 


#DF  unnamed-stateraent-part-of  (stmt) 
"(stmt  #IS  <statement> } " 

=>  #SEG  2 #0F  stmt  #. 


y/DF  sequence-of-procedure-declaration-units-in  (stmt) 

"(stmt  #IS  <procedure-declaration>)" 

=>  \strat\  #CS  sequence-of-executable-procedure-units-in 
(stmt)  #. 
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#DF  sequence-of-executable-procedure-units-in  (proc-dec) 

’•{proc-dec  #IS  <procedure-declaration>  #U 
<procedure-subprogram>}  •' 

=>  sequence -of -executable -uni ts-in 

(optional-decl-list-of  (procedure -head -of 
(proc-dec)))  #CS  sequence-of-executable-units-in 
( procedure -stmt -list -of 
(procedure-body-of (proc-dec ) ) ) #CS 
\proc-terminator-of  (procedure-body-of  (proc-dec) )\ 
#. 


#DF  procedure-stmt-list-of  (pbody) 

”{  pbody  #IS  <procedure-body>  #U 
<procedure-subprogram-body>} ” 

=>  #SEG  3 #0F  pbody 


#DF  proc-terminator-of  (pbody) 
=>  #SEG  5 #0F  pbody  #. 


#DF  is-unique-to-a-procedure (unit ) 

=>  #TRUE  #IFF  unit  #IS  <procedure-declaration>  #U 
<procedure-end>  #U  <procedure-subprogram-term>  #. 


#DF  procedure-unit-successor  (unit) 

=>  simple-successor-unit-of  ( proc-terminator-of 
(procedure-body-of (unit) ) ) #IF  unit  #IS 
<procedure-declaration> ; 

=>  simple-successor-unit-of  ( caller-of-proc 
(procedure-containing  (unit)))  #IF  unit  #IS 
<procedure-end>  #U  <procedure-subprogram>  #. 


#DF  procedure-containing  (unit) 

=>  #LAST  proc  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  (unit)) 
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r 

I #SIICH-THAT  (proc  #IS  <procedure-declaration>  #U 

t <procedure-subprograra>)#. 


#DF  caller-of-proc  (proc) 

"{proc  #IS  <procedure-declaration>  #U 
<procedure-subprogram> } " 

= > 

#LATEST-VALUE( procedu re-re t urn-point-uni que-to ( proc ) ) # . 

#DF  procedure-return-point-unique-to  (proc-dec) 

”{proc-dec  #IS  <procedure-declaration>  #U 
<procedure-snbprogram> } ” 

=>  ' procedure-return-point$ ' #CW  (#0RDP0SIT  proc-dec 
#IN  (#SEQUENCE-OF-NODES-IN  (#R00T-N0DE  (proc-dec)))) 


#DF  sequence-of-procedure-call-statement-units-in  (stmt) 

”{  stmt  #IS  <procedure-call-statement>  }" 

= > sequence-of-evaluation-units-in  (stmt)  #CS  \stmt\  //. 


#PR0C-DF  procedure-call-effect-of  (unit) 

”{  unit  #IS  <procedure-call-statement>}" 

//COMPUTE!  #ASSIGN-LATEST- VALUE 
( procedure-return-point-unique-to 

( procedure-decl-invoked-by  (unit )), "receives"  unit) 
#C0MPUTE! 

assignment -to-input -parameters ( procedure-decl-invoked-by 
(unit)  , "arguments-from"  unit) 

//COMPUTE ! assignment-to-output-parameters 
(procedure-decl-invoked-by  (unit),  "locs-from"  unit) 

#RETURN-WITH-VALUE!  #NIL//. 


L 
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#DF  procedure-call-successor  (unit) 

”{  unit  #IS  <procedure-call-statement>} " 

=>  #FIRST-ELEMENT-IN 

sequence-of-execu table-procedure-units -in 
( procedure-decl-invoked-by  (unit))  #. 


#DF  assignment-to-input-parameters  (proc,call) 

=>  successive-input-parameter-assigns  ( 
seq-of-input-params-in  (proc), 

"receivirg” 

seq-of-input-arguments-in  (call))  #. 


#DF  seq-of-input-params-in  (proc) 

”{  proc  #IS  <procedure-declaration  > #U 
<procedure-subprogram> } ” 

=>  #NILSEQ  #IF  ($proc$)  is-parameterless-procedure ; 

=>  #NILSEQ  #IF  optional-input-parameter-list-of  (proc) 
#EQW  #NIL; 

=>  arg-seq-from  (input-parameter-list-of  (proc)) 
#0tHERWISE  #. 


#DF  is-parameterless-procedure  (proc) 

"{  proc  #IS  <procedure-declaration>  #U 
<procedure-subprogram> } '* 

= > #TRUE  //IFF  optional-formal-parameter-list-of 
(procedure-head-of  (proc)  ) #EQW  //NIL  #. 


#DF  optional-f ormal-parameter-list-of  (proc-head) 
” { proc-head  #13  <procedure-head>  }" 

=>  #SEG  5 #0F  proc-head  #. 
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#DF  optional-input-parameter-list-of  (proc) 

=>  #SEG  3 #0F  optional-formal-parameter-list-of 
(procedure-head-of  (proc))  #. 


#DF  input-parameter-list-of  (proc) 

=>  #SEG  1 #0F  optional-input-parameter-list-of  (proc) 

#. 


#DF  seq-of-input-arguments-in  (call) 

"{  call  #IS  <procedure-call-statement>  #U 
<function-call>  }'• 

= > #NILSE0  #IF  ($call^)  is-argumentless-proc-call ; 

=>  #NILSEQ  #IF  optional-actual-input-parameter-list-of 
(call)  #E0W  #NIL; 

=>  arg-seq-from  (actual-input-parameter-list-of  (call)) 
(/OTHERWISE#. 


#DF  is-argumentless-proc-call  (call) 

=>  #TRUE  #IFF  call  #IS  #CASE  1 #0F 
<procedure-call-statement>  #. 


#DF  actual-input-parameter-list-of  (call) 

= > #SEG  1 #0F  optional-act  ..al-input-parameter-list-of 
(call)  #. 


#DF  optional-actual-input-parameter-list-of  (call) 

"{call  #IS  <procedure-call-statement>  #U 
< funct ion-call > } " 

= > #SEG  #0F  call  #. 


#DF  arg-seq-from  (apl) 


A 
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I"{  apl  #IS  <actual-input-parameter-list>  #U 

<actual-output-parameter-list> } ” 

1=>  \ last-arg-of  (apl)  \ #IF  ($apl$)  has-only-one-arg  ; 

=>  arg-seq-from  (f irst-args-of  (apl))  #CS  \ last-arg-of 
(apl)  \ //OTHERWISE  if. 


#DF  has-only-one-arg  (apl) 

= > #TRUE  iilFF  apl  #IS  #CASE  1 #0F 

<actual-input-parameter-list>  #0R  apl  iflS  //CASE  1 
//OF  <actual-output-parameter-list>  #. 


//DF  last-arg-of  (apl) 

'*  { apl  #IS  <actual-input-parameter-list>  #U 
< actual -out put -par ame t er-1 ist >}  ” 

=>  #SEG  1 #0F  (last-seg-of  (apl))  #. 


//DF  first-args-of  (apl) 

" { apl  //IS  #CASE  2 #0F  <actual-input-parameter-list> 

#0R  apl  #IS  //CASE  2 #0F 

<actual -output-parameter-1 ist > } ” 

= > #SEG  1 #0F  apl  //. 


//PROC-DF  successive-input-parameter-assigns 
(param-seq,  arg-seq) 

//FOR-ALL  i : 1 <=  i <r  #LENGTH  (param-seq)  #D0  //COMPUTE! 
assign-input-param  (i  #TH-ELEMENT-IN  param-seq,  i 
#TH-ELEMENT-IN  arg-seq) 

#RETURN-WITH-VALUE!  #NIL  if. 


IDF  assign-input-param  ( iparam,  iarg  ) 

=>  assign-close-input-param  (iparam,  iarg)  IIF  iparam 
IIS  <formal-input-close-parameter>  lAND  iarg  IIS 
<actual-input-close-parameter> ; 
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=>  assign-by-name-input-param  (iparam,  iarg)  #IF 

($iparam$)  is-call-by-name-f ormal  #AND  ( $operand 1 -of 
( iarg) $ ) is-call-by-name-argument ; 

=>  assign-by-value-input-param  (iparam,  iarg) 

^OTHERWISE  #. 


#DF  assign-close-input-param  (iparam,  iarg) 

"{  iparam  #IS  <formal-input-close-parameter>  #AND  iarg 
#IS  <actual-input-close-parameter>} ” 

=>  #ASSIGN-LATEST-VALUE 

(unique -control -variable -associated -with  ( iparam ) , 
target-of  (iarg))  #. 


#DF  is-call-by-name-formal  (iparam) 

=>  ($detailed-declaration-for  (iparam)  $) 

is-a-table-or-array-declaration  #IF  iparam  #IS 
<name> ; 

=>  #FALSE  ^OTHERWISE  #. 


#DF  is-call-by-name-argument  (iarg) 

=>  ( $detailed-declaration-f or  (iarg)  $) 

is-a-table-or-array-declaration  #IF  ($iarg$) 
is-a-variable  #AND  iarg  #IS-N0T  <indexed-variable> ; 

=>  #FALSE  #OTHERWISE  #. 


#DF  is-a-table-or-array-declaration  (dec) 

=>  #TRUE  #IFF  dec  #IS  <array-declaration>  #0R  ($dec$) 
is-a-table-declaration  #. 
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/)DF  assign-by-name-input-param  (iparam,  iarg) 

=>  generalized -assign -latest-value 

(simple-standard -reference -address  (iparam ) , 

( $word-address-f rom  (standard-reference-address-of 
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(iarg))  $) 

with-result-con vert ed-to-implementat ion -form)  # . 

#DF  assign-by-value-input-param  (iparam, iarg) 

=>  assign-effect  (iparam,  iarg)  #. 

#DF  assignment-to-output-parameters  (proc,call) 

=>  successive -out put -parameter-assigns 
(seq-of -output-params-in  (proc ) , 

"receiving"  seq-of-output-argument-locations-f rom 
(call))  #. 

y^DF  seq-of-output-params-in  (proc) 

=>  #NILSEQ  #IF  ($proc$)  is-parameterless-procedure ; 

=>  #NILSEQ  #IF  ($proc$)  has-no-output-params ; 

=>  arg-seq-from  (output-parameter-list-of  (proc)) 
#0THERWISE  #. 

//DF  has-no-output-params  (proc) 

=>  #TRUE  #IFF  optional-formal-parameter-list-of 
( procedure-head-of  (proc)  ) #IS-N0T  #CASE  3 #0F 
< optional -formal -parameter-list > # . 

y/DF  output-parameter-list-of  (proc) 

=>  #SEG  7 #0F  optional-formal-parameter-list-of  (proc) 

yy. 

yyOF  seq-of-output-argument-locations-f rom  (call) 

"{call  #IS  <procedure-call-statement>}" 

= > #NILSEQ  #IF  ($call$)  is-argumentless-proc-call ; 

= > #NILSEQ  #IF  ($call$)  has-no-output-args ; 

=======================  control-105  ====================== 
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=>  arg-seq-from  (actual-output-parameter-list-of 
(call))  #OTHERWISE  #. 


//DF  has-no-output-args  (proc) 

=>  #TRUE  #IFF  proc  #IS-N0T  #CASE  3 #0F 
<procedure-call-statement>  #. 


#DF  actual-output-parameter-list-of  (call) 

"{  call  #IS  #CASE  3 #0F  <procedure-call-statement>  }" 
=>  #SEG  9 #0F  call  #. 


#PR0C-DF  successive-output-parameter-assigns  (param-seq, 
arg-seq ) 

/^FOR-ALL  i : 1 < = i<=  #LENGTH  (param-seq)  #D0  ^COMPUTE! 
assign-output-param  ( i #TH-ELEMENT-IN  param-seq,  i 
#TH-ELEMENT-IN  arg-seq) 

#RETURN-WITH-VALUE!  #NIL  #. 


#DF  assign-output-param  (o-param,  o-arg) 

=>  assign-destination-output-param  (o-param,  o-arg)  #IF 
o-param  #IS  <forraal-output-destination-parameter> 
#AND  o-arg  #IS 

<actual-output-destination-parameter> ; 

=>  assign-ref-addr-to-output-param  (o-param,  o-arg)  #IF 
($o-param$)  is-f ormal-output-data-parameter  #AND 
($o-arg$)  is-actual-output-data-parameter  #. 


#DF  is-f ormal-output-data-parameter  (o-param) 

=>  #TRUE  #IFF  o-param  #IS  <name>  #AND  #PARENT-NODE 
(o-param)  #IS  <f ormal-output-parameter > #. 


#DF  is-actual-output-data-parameter  (o-arg) 


I r======================  control-106  =======r========s====== 
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=>  #TRUE  #IFF  o-arg  #IS  <variable>  #AND  #PARENT-N0DE 
(o-arg)  #IS  <actual-output-parameter>  #. 


#DF  assign-destination-output-param 
(o-param,  o-arg) 

'•{  o-param  #IS  <formal-output-destination-pararoeter> 
#AND  o-arg  #IS  <actual-output-destination-paramfeter>}'' 

=>  #ASSIGN-LATEST-VALUE 

(unique-control-variable-associated-with  (o-param) , 
"receives"  target-of  (o-arg))  #. 


#DF  assign-ref-addr-to-output-param  (o-param,  o-arg) 

=>  #ASSIGN-LATEST-VALUE 

(unique -reference -address- variable-associated -with 
(o-param),  "receives"  \standard-reference-address-of 
(variable-constituting  (o-arg)),  "and" 
variable-constituting  (o-arg)  \)  #. 


#DF  variable-constituting  (var) 

"{var  #IS  <variable>  }" 

=>  #FIRST  nx  #IN  (#SEQUENCE-0F-N0DES-IN  (var)) 
#SUCH-THAT  (($nx$)  is-a-variable ) #. 


#DF  sequence-of-return-statement-units-in  (stmt) 
"{  stmt  #IS  <return-statement>  }" 

=>  \stmt\  #. 


#DF  return-statement-successor-of (unit ) 

=>  simple-successor-unit-of  (caller-of-proc 
(procedure -containing (unit ) ) ) #IF 
innermost-proc-or-close-containing  (unit)  #IS 
<procedure-declaration>  #U  <procedure-subprogram> ; 

=>  simple-successor-unit-of  (caller-of-close  ( 
close-containing(unit) ) ) #IF 
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innermos t-proc-or-close-con tain ing( uni t ) IIS 
<close-declaration>  #U  <close-subprograni>  #. 


IDF  innermost-proc-or-close-containing  (unit) 

"{  unit  IIS  <return-statement> } " 

=>  ILAST  candidate  IIN  (ISEQUENCE-OF-ANCESTORS-OF  unit) 
ISUCH-THAT  (candidate  IIS  <procedure-declaration>  lU 
<procedure-subprogram>  lU  <close-declaration>  lU 
<close-subprogram> ) I. 


IDF  return-statement-ef fect-of (unit ) 

"{unit  IIS  <return-statement>}" 

=>  INIL  IIF  innermost-proc-or-close-containing  (unit) 
IIS-IN  < close-declaration>  lU  < close-subprogram> ; 

=>  procedure-return-ef fect-of (unit ) lOTHERWISE  I. 


IDF  is-a-return-from-a-procedure (unit ) 

=>  ITRUE  IIFF  unit  IIS  <procedure-end>  lU 
<procedure-subprogram>  I. 


IDF  procedure-return-ef fect-of  (unit) 

=>  assignment-to-actual-output-args-from 
( procedure-containing (unit ) ) IIF 
caller-of-proc (procedure-containing (unit ) ) IIS 
<procedure-call-statement> ; 

=>  assign-latest-value  (caller-of-proc 

( procedure-containing (unit )), "receives" 
generalized -latest -value  (name -declared -in 
( function-item-declaration-f or 

(procedure-containing(unit ) ) ) ) ) IIF  caller-of-proc 
( procedure-containing (unit ) ) IIS  <function-call>  I. 


IDF  assignment-to-actual-output-args-from  (proc) 
=>  successive -argument -assigns -from 
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(seq-of-output-params-in  (proc))  #. 

#PR0C-DF  successive-arguraent-assigns-f rom  (o-param-seq ) 

#F0R-ALL  o-param  #IN  o-param-seq  #D0  ^COMPUTE! 
output-arg-assign-from  (o-param) 

#RETURN-WITH-VALUE!  #NIL  #. 


#DF  output-arg-assign-from  (o-pararo) 

=>  #NIL  #IF  o-pararo  #IS 

<formal-output-destinat ion-parameter > ; 

=>  output-arg-assign  (output-argument-passed-to 
(o-param) , 

"at”  ref-addr-passed-to  (o-param)  , "receives"  o-param) 
♦OTHERWISE  #. 


#DF  output-argument-passed-to  (o-param) 

=>  2 #TH-ELEMENT-IN(  #LATEST-VALUE 

(unique-reference-address-variable -associated -with 
(o-param)))  #. 


#DF  ref-addr-passed-to  (o-param) 

=>  #FIRST-ELEMENT-IN  ( #LATEST-VALUE 

( unique-ref erence-address-variable-associated-with 
(o-param)))  #. 


♦DF  unique-reference -ad dr ess -variable -associated -with 
( o-param ) 

=>  'output-var-addr-loc# * #CW  ( #0RDP0SIT  o-param  #IN  ( 
#SE0UEMCE-0F-N0DES-IN  ( #R00T-N0DE  (o-param))))  #. 


#DF  output-arg-assign  (rec-var,  rec-addr,  o-param) 

=>  generalized-assign-latest-value  (rec-addr, 
"receives"  latest-value  (o-param))  #IF  type 
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(rec-var)  #E0W  'boolean'  #AND  type  (o-param)  #EQW 
' boolean' ; 

=>  generalized-assign-latest-value  (rec-addr, 
"receives"  adjusted-literal  (o-param,  "to" 
size-from-standard-reference-address  (rec-addr) ) ) 
#IF  type  (rec-var)  #IS-IN  \ 'hollerith' , 

' transmission-code ' \ #AND  type  (o-param)  #IS-IN  \ 
'hollerith',  'transmission-code'  \; 

=>  numeric-arg-assign  (rec-var,  rec-addr,  o-param)  #IF 
($type  (rec-var)$)  is-numeric-type  #AND  ($type 
(o-parara)  $)  is-numeric-type  #. 


#DF  is-numeric-type  (t) 

"{t  ns  #STRING}" 

=>  #TRUE  #IFF  t #IS-IN  \ 'integer',  'fixed',  'floating' 
\ #. 


#DF  numeric-arg-assign  (rec-var,  rec-addr,  o-param) 

=>  generalized-assign-latest-value  (rec-addr, 

"receives"  floating-latest-value  (o-param))  #IF  type 
(rec-var)  #E0W  'floating'; 

=>  generalized-assign-latest-value  (rec-addr, 

"receives"  integer-latest-value  (o-param))  #IF  type 
(rec-var)  #E0W  'integer'; 

=>  generalized-assign-latest-value  (rec-addr, 

"receives"  fixed-latest-value  (o-param,  "with" 
attributes  (rec-var)))  #IF  type  (rec-var)  #EQW 
'fixed'  #. 


#DF  sequence-of-alternative-statement-units-in  (stmt) 

"(stmt  #IS  <alternative-statement>}" 

=>  sequence-of-alternative-units-implied-in 
( alternatives-of  (stmt))  #. 


#DF  alternatives-of  (stmt) 
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"{stmt  #IS  <alternative-stmt> } " 

=>  #SUBSEQUENCE-OF-ELEMENTS  alt  #IN 

sequence-of-alternatives-of  (stmt)  #SUCH-THAT 
(alternative-statement-containing  (alt)  #EQ  stmt)  #. 


#DF  sequence-of-alternative-units-implied-in  (alt-seq) 

=>  fNILSEQ  #IF  alt-seq  #EQ  #NILSEQ; 

=>  sequence-of-alternative-units-in  ( #FIRST-ELEMENT-IN 
alt-seq)  #CS 

sequence-of-alternative-units-implied-in ( 
all-but-f irst-element-in  (alt-seq))  fOTHERWISE  #. 


#DF  sequence-of-alternatives-of  (stmt) 

"(stmt  #IS  <alternative-statement> } " 

=>  #SEQUENCE-OF  <if-either-alternative>  #U 
<or-if-alternative>  #TN  stmt  #. 


#DF  sequence-of-alternative-units-in  (alt) 

=>  sequence-of-evaluation-units-in  ( boolean-f ormula-of 
(alt))  #CS\alternative-test-point-of  (alt)\  #CS 
sequence -of -executable -units -in 
( independent-statement-of  (alt)) 
#CS\unwritten-alternative-end-of  (alt)\  #. 


#DF  sequence-of-conditional-units-in  (stmt) 

"(stmt  #IS  <conditional-statement> } " 

=>  sequence-of-evaluation-units-in  ( boolean-f ormula-of 
(stmt))  #CS  \conditional-test-point-of  (stmt)\  #CS 
sequence-of-executable-units-in 
( independent-statement-of  (stmt ) ) 
#CS\unwritten-conditional-end-of  (stmt)\  #. 


#DF  alternative-test-point-of  (alt) 
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"{alt  #IS  <if-either-alternative>  #U 
<or-if-alternative>}" 

=>  reverse-seg  (^ , "of "alt ) #. 

#DF  conditional-test-point-of  (stmt) 

"{stmt  #IS  <conditional-statement> } " 

= > reverse-seg  (it,  "of"  stmt)  #. 

#DF  is-unit-unique-to-alternative-statement  (unit) 

"(unit  #EQ  current-executable-unit}" 

=>  #TRUE  #IFF  (unit  #IS  <unwritten-alternative-end> ) 

#0R  ($unit$)  is-alternative-test-point  it. 

#DF  is-unit-unique-to-conditional-statement  (unit) 

"(unit  #EQ  current-executable-unit}” 

=>  #TRUE  #IFF  (unit  #IS  <unwritten-conditional-end>  #0R 
($unit$)  is-conditional-test-point ) #. 

#DF  is-alternative-test-point  (unit) 

"(unit  #E0  current-executable-unit}" 

=>  #TRUE  »IFF  #PARENT-NODE  (unit)  #IS 

<if-either-alternative>  #U  <or-if-alternative>  #AND 
unit  #EOW  ’$•#. 

//DF  is-conditional-test-point  (unit) 

"{unit  #EQ  current-executable-unit}" 

=>  #TRUE  #IFF  #PARENT-NODE  (unit)  #IS 

<conditional-statement>  #AND  unit  #EQW  '$•  #. 

#DF  alternative-statement-unit-successor-of  (unit) 

=====r=================  control-112  ======================= 
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’•{unit  #EQ  current-executable-unit}” 

=>  siraple-successor-unit-of 

(alternative-statement-end-of 

(alternative-stateraent-containing  (unit)))  #IF  unit 
ins  <unwritten-alternative-end>  ; 

=>  conditional-successor-of  (unit)  #IF  ($unit$) 
is-alternative-test-point 


#DF  conditional-statement-unit-successor-of  (unit) 

”{unit  #EQ  current-executable-unit}” 

=>  simple-successor-unit-of  (unit)  #IF  unit  #IS 
<unwritten-conditional-end>  ; 

=>  conditional-successor-of  (unit)  #IF  ($unitife) 
is-cond  it  ional -test -point  if . 


#DF  alternative-statement-containing  (unit) 

”{unit  #IS  <if-either-alternative>  #U 
<or-if-alternative>  #U  <unwritten-alternative-end>}” 

= > #LAST  altern  (/IN  ( #SE0UENCE-0F-ANCEST0RS-0F  (unit)  ) 
#SUCH-THAT  (altern  #IS  <alternative-statement> ) #. 


#DF  simple-successor-unit-of  (nx) 

”{nx  #IS  <alternative-statement-end>  #U 
<unwritten-alternative-end>  #0 

<unwritten-conditional-end>  #U  <initial-formula>  #U 
<increraent-formula>  #1)  <termination-f ormula>  #U 
<special-test-statement>  #U  <go-T:o-statement>}” 

= > #FIRST  unit  //IN  sequence-of-executable-units-in 
( program-unit-containing (nx ) ) #SUCH-THAT  (nx 
//PRECEDES  unit  //IN  sequence-of-executable-units-in 
(program-unit-containing(nx) ) ) #IF  nx  #IS 
<alternative-statement-end> ; 
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=>  (#0RDP0SIT  nx  #IN  sequence-of-executable-units-in 
(program-unit-containing(nx) ) ) + 1 #TH-ELEMENT-IN 
sequence -of -executable -units -in 
(program-unit-containing  (nx))  #0THERWISE  #. 


#DF  conditional-successor-of  (unit) 

"{($unit$)  is-alternative-test-point  AOR 

( $un it $)is-conditional -test -point }" 

=>  first-executable -unit- in ( independent -statement -of 
( conditional -phrase -containing (unit ) ) ) #IF 
( $condition-tested-by(unit)$)  is- true; 

=>  simple-successor-unit-of  (conditional-phrase-end-of 
( conditional-phrase-containing (unit )) ) #0THERWISE  #. 


#DF  condition-tested-by  (unit) 

''{($unit$)  is-alternative-test-point  #0R  ($unit$) 
is-conditional-test-point } '• 

=>  result-of  ( boolean-f ormula-of 

(conditional-phrase-containing  (unit)))  #. 


#DF  result-of  (nx)  ] 

"{  ($  nx  $)  is-an-evaluated-formula  }” 

=>  latest-value  (operandl-of  (nx)  ) #. 


#DF  conditional-phrase-containing  (unit)  J 

i 

r>  #LAST  phrase  #IN  ( #SE0UENCE-0F-ANCEST0RS-0F  (unit)  ) ^ 

#SUCH-THAT  (phrase  #IS  <if-either-alternative>  #U  1 

<or-if-alternative>  #U  <conditional-statement> ) #.  | 

i 

#DF  first-executable-unit-in  (nx) 

"{nx  #IS  <alternative-statement>  #U 
<conditional-statement>  #U  <unnamed-statement>)" 

=>  #FIRST-ELEMENT-IN  sequence-of-executable-units-in 
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#DF  conditional-phrase-end-of  (unit) 

"{unit  #IS  <if-either-alternative>  #U 
<or-if-alternative>  #U  <conditional-statement>}" 

=>  last-seg-of  (unit)  #. 

y/DF  alternative-statement-end-of  (stmt) 

"(stmt  #IS  <alternative-statement>}" 

=>  iSEG  3 #0F  stmt  #. 

#DF  independent-statement-of  (alt) 

"(alt  #IS  <if-either-alternative>  #U 
<or-if-alternative>  #U  <conditional-statement> } " 

=>  #SEG  (#SEG-COUNT(alt)  - 1)  #0F  alt  #. 

#DF  is-true(val) 

=>  #TRUE  #IFF  val  #EQW  *1’  #. 

#DF  boolean-f ormula-of  (nx) 

"(nx  #IS  <if-either-alternative>  #U  <or-if-alternative> 
#U  <conditional-statement>  #U 
<special-test-statement >} " 

= > #SEG  3 #0F  nx  //IF  nx  #IS  <conditional-statement>  #U 
<if-either-alternative>; 

= > ISEG  M IGF  nx  //IF  nx  IIS  <or-if-alternative> ; 

=>  ISEG  1 lOF  nx  IIF  nx  IIS  <special-test-statement>  I. 

IDF  unwritten-alternative-end-of  (alt) 

"{alt  IIS  <if-either-alternative>  lU 
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=>  last-seg-of  (alt)  #. 


#DF  unwritten-conditional-end-of  (stmt) 

"{stmt  #IS  <conditional-statement>} " 
=>  last-seg-of  (stmt)  #. 


#DF  last-seg-of  (nx) 

•'{nx  #IS  #N0DE}” 

=>  #SEG  (#SEG-COUNT(nx))  #0F  nx  #. 


#DF  reverse-seg  (n,"of''nx) 

"{n  #IS  #INTEGER  #AND  n>0  #AND  nx  #IS  #N0DE  #AND  n<= 
#SEG-COUNT(nx)}” 

=>  #SEG  (#SEG-C0UNT(nx)+1  - n)  #0F  nx  #. 


#DF  sequence-of-loop-units-in  (stmt) 

"{stmt  #IS  <loop-stateraent>}" 

=>  sequence-of-formula-units-in  ( #SEQUENCE-OF 

<initial-formula>  #IN  loop-header-of  (stmt))  #CS 
sequence-of-executable-units-in  ( loop -body -of 
(stmt))  #CS  sequence-of-formula-units-in 
(//REVERSE-SEQUENCE  ( #SE0UENCE-0F  <increraent-f ormula> 
#IN  loop-header-of  (stmt)))  #CS 
sequence-of-formula-units-in  ( #SF0UENCF-0F 
<termination-formula>  #IN  loop-header-of  (stmt))  #. 


"There  will  be  one  or  zero  termination-formulas." 


#DF  sequence-of-formula-units-in  (seq) 

"{  seq  #IS  #SEQUENCE  #AND  #F0R-ALL  element  #IN  seq 
#IT-IS-TRUE-THAT  (element  #IS  <initial-formula>  #U 
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<increment-formula>  #U  <termination-formula> ) }" 

=>  INILSEO  #IF  seq  #EQ  #NILSE0; 

=>  sequence-of-evaluation-units-in  ( #FIRST-ELEMEMT-IN 
seq)  #CS  \#FIRST-ELEMENT-IN  seq\  #CS 
sequence -of -formula-units- in 

(all-but-first-element-in  (seq))  /OTHERWISE  /. 


#DF  loop-header-of (stmt ) 

"{stmt  /IS  <loop-statement>}" 
=>  #SEG  1 #0F  stmt  #. 


/DF  loop-body-of  (stmt) 

"{stmt  /IS  <loop-statement>} " 

=>  #SEG  2 #0F  stmt  #. 

/DF  is-branch-control -unit -of -loop-statement (unit ) 

"{unit  /EO  current-executable-unit}” 

=>  /TRUE  /IFF  (unit  /IS  <termination-f ormula>  /U 
<special-test-statement>  /U  <test-statement> ) #. 

/DF  is-index-control-unit-of-loop-statement (unit ) 

=>  /TRUE  /IFF  (unit  /IS  <initial-forraula>  /U 
<increment-formula> ) /. 


/DF  loop-statement-ef fect-of  (unit) 

"{unit  /IS  <initial-formula>  /U  <increment-formula>}" 

=>  as sign -latest -value -of -variable 

(loop -control -variable- in  (for -clause-containing 
(unit)),  "receives”  result-of  (numeric-formula-of 
(unit)))  /IF  unit  /IS  <initiaI-formula> ; 

=>  assign -la test-value-of -variable 
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(loop-control-variable-in  ( for-clause-containing 
(unit)),  "receives”  integer-add  (integer-result-of 
(numeric-formula-of  (unit))  , "and" 
la test -value -of -variable  ( loop-control -variable -in 
( f or-clause-containlng  (unit)))))  #IF  unit  #18 
<increm9nt-formula>  #. 


itDF  latest-value-of-variable  (var) 

=>  generalized-latest-value  (var)  #. 


#DF  assign-latest-value-of-variable  (var,val) 

=>  generalized-assign-latest-value  (var,  val)  #. 


#DF  for-clause-containing  (unit) 

"{unit  #18  <initial-f ormula>  #U  <increment-formula>  #U 
<termination-formula> } " 

=>  #PARENT-NODE  (unit)  #. 


#DF  loop-control-variable-in  (nx) 

"(nx  #18  <one-facter-for-clause>  #U 
<two-factor-for-clause>  #U  <complete-for-clause>} " 

=>  #8EG  3 #0F  nx  #. 


#DF  numeric-forraula-of  (unit) 

"{unit  #18  <initial-formula>  #U  <increment-f ortnula>  #U 
<termination-formula>  #U  <index-formula>} " 

=>  #8EG  1 #0F  unit  #. 


#DF  integer-result-of  (nx) 

"{  ($  nx  #)  is-an-evaluated-forrnula  }" 

=>  integer-latest-value  (operandl-of  (nx)  ) #. 
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#DF  loop-statement-unit-successor-of  (unit) 

"{unit  #IS  <termination-formula>  #U 

<special-test-stateraent>  #U  <test-staten)ent>}" 

=>  termination-f ormula-unit-successor-of  (unit)  #IF 
unit  #IS  <tertnination-formula> ; 

=>  special-test-statement-unit-successor-of  (unit)  #IF 
unit  #IS  <special-test-statement> ; 

=>  test-statement-unit-successor-of  (unit)  #IF  unit  #IS 
<test-statement>  #. 


#DF  termination-formula-unit-successor-of  (unit) 

"{unit  #IS  <termination-formula>}" 

=>  simple-successor-unit-of  (unit)  #IF 
loop-range-is-satisfied-for  (unit)  ; 

=>  beginning-of-loop-body-containing  (unit)  #OTHERWISE 
it. 


itDF  beginning-of-loop-body-containing  (unit) 

"{unit  #IS  <tertnination-f ormula> } " 

=>  #FIRST-ELEMENT-IN  sequence-of-executable-units-in 
( loop-body-of  (loop-statement-containing  (unit)))  it. 


itDF  loop-statement-containing  (unit) 

"{unit  itlS  <termination-f ormula>  #U 
<special-test-statement>} " 

= > #LAST  nx  //IN  ( //SEQUENCE-OF-ANCESTORS-OF  (unit)  ) 
//SUCH- THAT  (nx  it  IS  <loop-statement  > ) it . 


itDF  loop-range-is-satisfied-for  (unit) 
"{unit  //IS  <termination-formula> } " 
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=>  is-less-in-value  (loop-control-variable-in 
(for-clause-containing  (unit)  ),  "than" 
numeric-formula-of  (unit)  ) #IF  ($ 
numeric-formula-of  ( increment-formula-implied-by 
(unit)  ) $)  has-value-less-than-zero ; 

=>  is-greater-in-value  (loop-control-variable-in 
(for-clause-containing  (unit)  ),  "than" 
numeric-formula-of  (unit)  ) #0THERWISE  #. 


"AFM  100-2^1  does  not  define  whether  an  increment  value  of 
zero  is  positive  or  negative.  To  determine  if  the  loop 
variable  has  gone  beyond  its  limit  unambiguously,  we  have 
assumed  zero  to  be  positive." 


#DF  has-value-less-than-zero  (fx) 

"{  fx  #IS  <numeric-f ormula>  }" 

=>  ITRUE  #IFF  relation-with-integer-zero-of 
(integer-result-of  (fx)  ) #E0W  #. 


#DF  is-less-in-value  (nx,ny) 

"{  nx  #IS  <loop-variable>  #AND  ny  #IS  <numeric-f ormula> 
}" 

=>  have-values-in-relation  ('<',nx,ny)  #. 

#DF  is-greater-in-value  (nx,ny) 

"{  nx  #IS  <loop-variable>  #AND  ny  #IS  <numeric-formula> 
}" 

=>  have-values-in-relation  ('>',nx,ny)  #. 

#DF  have-values-in-relation  (rel,nx,ny) 

"{  nx  #IS  <loop-variable>  #AND  ny  #IS  <numeric-f ormula> 
#AND  rel  #IS-IN  \ }" 

=>  #TRUE  #IFF  rel  #E0W 

imp lemen tat ion -integer-and -fixed -point -compare 
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(latest-value  (nx),  ••with"  attributes  (nx),  "with" 
integer-result-of  (ny),  "with" 
integer-attributes(ny)  ) #. 


#DF  increment-formula-implied-by  (unit) 

"{unit  #IS  <termination-f ormula> } " 

=>  #FIRST  nx  #IN  sequence-of-executable-units-in 

(loop-statement-containing  (unit))  #SUCH-THAT  (nx 
#IS  <increment-formula> ) #. 


#DF  special-test-statement-unit-successor-of  (unit) 

"(unit  #IS  <special-test-statement>l" 

r>  simple-successor-unit-of (unit ) #IF( Jresult-of 
( boolean-formula-ot (unit ) ) $ ) is-true ; 

= > 

simple-successor-unit -of -loop-statement -containing (unit ) 
^OTHERWISE  #. 


#DF  simple-successor-unit -of -loop-statement-containing (unit ) 

"{unit  #IS  <special-test-statement>}" 

=>  #FIRST  ex-unit  #IN  sequence-of-executable-units-in 
(program-unit-containing  (unit))  #SUCH-THAT 
( #LAST-ELEMENT-IK  sequence-of-executable-units-in 
(loop-statement-containing(unit))  #PRECEDES  ex-unit 
#IN  sequence-of-executable-units-in 
(program-unit-containing(unit)  ))  #. 


#DF  sequence-of-test-units-in  (stmt) 

=>  \stmt\  #IF  stmt  #IS  <test-statement> ; 

=>  sequence-of-evaluation-units-in  (stmt)  #IF  stmt  #IS 
<special-test-statement>  #. 


#DF  test-statement-unit-successor-of (unit ) 
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"{unit  #IS  <test-statement> } " 

=>  first-evaluation-unit-in 

( increment-f ormula-referenced-by (unit ) ) #. 


"An  increment-formula  of  a for  clause  is  referenced 
(directly  or  indirectly)  by  the  test-statement  and  is  the 
'location 'to  which  control  passes.  The  test-statement  must 
be  contained  in  the  loop-statement  which  also  contains  the 
referenced  for-clause.  If  the  test-statement  directly 
references  a one-factor-for-clause  of  such  a loop-statement, 
it  is  assumed  that  there  is  at  least  one  syntactically 
preceding  two-factor-for-clause  or  complete-for-clause  in 
the  loop-statement.  The  last  of  these  contains  the 
increment-formula  which  is  referenced  by  the 
test-statement . " 


//DF  f irst-evaluat ion-uni t-in  (nx ) 

"{nx  #IS  <increment-formula>}" 

=>  #F1RST-ELEMENT-IN 

sequence-of-evaluation-units-in(nx)  #. 


#DF  increment-f ormula-referenced-by (unit ) 

"{unit  #IS  <test-statement>}" 

=>  #SEG  11  #0F  for-clause-referenced-by (unit ) #. 


#DF  for-clause-referenced-by (unit ) 

"(unit  #IS  <test-sta tement > } ” 

= > for-clause-directly-referenced-by (unit ) #IF 
for-clause-directly-referenced-by (unit ) #IS 
<two-factor-for-clause>  #U  <complete-f or-clause> ; 

= > iKLAST  nx  #IN  sequence-of-f or-clauses-implied-in 
( sequence-of-loop-statements-containing (unit ) ) 
#SUCH-THAT  (nx  ^PRECEDES 

for -clause -directly -ref erenced-by (unit ) #IN 
sequence-0 f-for-clauses -imp lied-in 

( sequence -of-loop-statements-containing( unit))  #AND 
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nx  #IS  <two-factor-for-clause>  #U 
<complete-for-clause>  ) #IF 
for-clause-directly-referenced-by(unit)  #IS 
<one-factor-for-clause>  #. 


#DF  f or-clause-directly-referenced-by (unit ) 

'•{unit  #IS  <test-statement> } " 

=>  #LAST  for-clause  #IN 

sequence -of -f  or -clauses -imp lied -in 
( sequence -of -loop -statements -containing (unit ) ) 
#SUCH-THAT  (loop-variable-of (for-clause)  #EQW 
loop-variable-of (unit ) ) #IF 
( $unit$ )declares-loop-variable ; 

=>  #LAST-ELEMENT-IN  sequence-of-for-clauses-implied-in 
( sequence-of-loop-statements-containing(unit ) ) 
#0THERWISE  #. 


#DF  sequence-of-for-clauses-implied-in ( loop-statement-seq  ) 

"(loop-statement-seq  #IS  ^SEQUENCE  #AND  #F0R-ALL 
element  #IN  loop-statement-seq  #IT-IS-TRUE-THAT 
(element  #IS  <loop-statement>) }" 

=>  INILSEQ  #IF  loop-statement-seq  #E0  #NILSEC; 

=>  #SEQUENCE-0F  <one-factor-f or-clause>  #U 

<two-factor-for-clause>  #U  <complete-for-clause>  #IN 
loop-header-of  ( #FIRST-ELEMENT-IN 
loop-statement-seq)  #CS 
sequence-of-f or -clauses -imp lied -in 
( all- but-first -element-in (loop-statement-seq)  ) 
^OTHERWISE  #. 


#DF  loop-variable-of (unit ) 

"(unit  #IS  <one-factor-for-clause>  #U 
<two-factor-f or-clause>  #U  <complete-f or-clause>  #U 
<test-statement>} " 

=>  #SEG  3 #0F  unit  #IF  unit  #IS  <one-factor-for-clause> 
#U  <two-factor-for-clause>  #U  <complete-f or-clause> ; 
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=>  #SEG  ^ #0F  unit  #IF  ( $unit$ )declare3-loop-variable 

#. 
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#DF  declares-loop-variable(unit ) 

"{unit  #IS  <test-statement>} " 

=>  #TRUE  #IFF  unit  #IS  #CASE  2 #0F  <test-statement>  #. 


#DF  sequence-of-loop-statements-containing (unit ) 

"(unit  #IS  <test-statement>}" 

=>  #SUBSEQUENCE-OF-ELEMENTS  nx  #IN 

y/SEQUENCE-OF-ANCESTORS-GF  (unit)  #SUCH-THAT  (nx  IIS 
<loop-statement>  #AND  nx  #IS-IN 
program-unit-containing(unit) ) #. 


y/DF  is-an-executable-statement  (nx) 

"{nxIISyyNODE}" 

=>  nx  #IS-IN  sequence-of-executable-statements-in 
(program-unit-containing(nx) )l. 


IDF  first-unit-in ( seq  ) 

=>  #FIRST-ELEMENT-IN(seq)#. 


yyDF  statement-f ollowing ( stmt ) 

"(stmt  #IS-IN  sequence-of-executable-statements-in 
( current -program-conta in ine ( stmt ) ) } " 

= > ((y/ORDPOSIT  stmt  IIN 

sequence -of-executable-statements-in 
(program-unit-containing(stmt ) ) ) + 1 ) 

#TH- ELEMENT- IN  sequence-0 f-executable-statements-in 
( program-unit -containing  (stmt ) ) I . 


IDF  sequence-of-evaluation-units-in(nx ) 
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”{  ($  nx  $)  is-an-evaluated-formula  }" 

=>  #SUBSEOUENCE-OF-ELEMENTS  unit  #IN 

postorder-sequence-of-nodes-in  (nx)  #SUCH-THAT  ( ($ 
unit  $)  is-operation-or-primitive-operand  ) #. 

#DF  postorder-sequence-of-nodes-in  (nx) 

”{  nx  #IS  #N0DE  }” 

=>  \nx\  #IF  #SEG-C0UNT  (nx)  = 0; 

=>  postorder-sequence-f or-segs-of  (nx 

,"starting-with-seg"  1)  #CS  \nx\  #OTHERWISE  #. 

#DF  postorder-sequence-f or-segs-of  (nx,  "starting  with  seg" 

n) 

•'{seq  #IS  iffSEQUENCE}" 

r>  postorder-seauence-of-nodes-in  (#SEG  n #0F  nx)  #IF  n 
= #SEG-COUNT(nx) ; 

=>  postorder-sequence-of-nodes-in  (#SEG  n #0F  nx)  #CS 
postorder-sequence-for-sees-of  (nx,  "continuing  with 
seg"  n+1)  fOTWERWISE  #. 

//DF  sequence-of-input-statement-units-in  (stmt) 

"{  stmt  #IS  <input-statement>  }" 

=>  #ERR0R  #. 

#DF  sequence-of-output-statement-units-in  (stmt) 

"{  stmt  #IS  <output-statement>  }" 

=>  lERROR  #. 

#DF  sequence-of-open-input-statement-units-in  (stmt) 

"{  stmt  #IS  <open-input-statement>  }" 

====z===============5==  control-125  ======================= 
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=>  #ERROR  #. 

#DF  sequence-of-open-output-statement-units-in  (stmt) 
*' { stmt  #IS  <open-output-statement>  }" 

=>  #ERR0R  #. 

#DF  sequence-of-shut-input-statement-units-in  (stmt) 
"{  stmt  #IS  <shut-input-statement>  }" 

=>  #ERROP  #. 

#DF  sequence-of-shut-output-statement-units-in  (stmt) 
*' { stmt  #IS  shut-output-statement  }” 

=>  #ERR0R  #. 
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#DF  is-numeric-operation  (nx) 

=>  #TRUE  #IFF  (^nx$)  is-numeric-binary-operation  #0R 
($nx$)  is-numeric-unary-operation  #. 


#DF  is-operation-or-primitive-operand (nx) 


= > 

#TRUE 

#IF 

($nx$) 

is-a-constant ; 

= > 

#TRUE 

#IF 

($nx$) 

is-a-variable ; 

=> 

#TRUE 

#IF 

($nx$) 

is-numeric-binary-operation ; 

=> 

#TRUE 

#IF 

($nx$) 

is-numeric-unary-operation ; 

= > 

#TRUE 

#IF 

($nx$) 

is-boolean-operation ; 

=> 

#TRUE 

//IF 

($nx$) 

is-relational-operation ; 

=> 

#TRUE 

//IF 

($nx$) 

is-function-reference ; 

=> 

#FALSE 

: //OTHERWISE 

; //. 

#DF  is-a-constant  (nx) 

= > #TRUE  #IFF  nx  #IS  <f loatin6t-constant>  #U 
<f ixed-constant>  #U  <inteeer-constant>  #U 
<boolean-constant>  #U  <octal-constant>  #U 
<transmission-code-constant>  #U  <hollerith-constant> 
#U  <status-constant>  #U  <zero>  #. 


//DF  is-a-variable  (nx) 

= > #TRUE  #IFF  nx  #IS  <siniple-variable>  #U 
<indexed-variable>  #U  <entry-variable>  #U 
<special-integer-variable>  #U 
<special-f ixed-variable>  #U 
<special-literal-variable>  #U 
<special-boolean-variable>  #. 


#DF  is-numeric-binary-operation  (nx) 
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=>  #TRUE  #IFF  nx  #IS  <sum>  #U<difference>  #U<product> 
#U<quotient>  #U<exponential>  #. 


#DF  is-numeric-unary-operation  (nx) 

=>  #TRUE  #IFF  nx  #IS  <abs-function>  #U 

<nwdsen-function>  #U  <loc-function>  #U  <unary-minus> 
#U  <unary-plus>  #. 


#DF  is-boolean-operation  (nx) 

=>  #TRUE  #IFF  nx  #IS  <dis junction>  #U  <con junction>  #U 
<negation>  #. 


#DF  is-relational-operation  (nx) 


=>  #TRUE  #IFF  nx  #IS  <entry-relation>  #U 

<status-relation>  #U  <chain-relation>  #U  <relation> 


I 

I #DF  is-function-reference  (unit) 

f 

I ”{  ($unit$)  is-operation-or-primitive-operand}" 

> =>  #TRUE  #IFF  unit  #IS  <function-call>  #. 

j 

f 

f 


I 


r 


L 
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#DF  evaluation-successor-of  (unit) 

"{unit  #E0  current-executable-unit  #AND  ($uniti) 
is-operation-or-primit ive-operand } " 

= > successor-of-special-boolean-operand (unit ) #IF 
( $unit$ ) is -special -boo lean -ope rand ; 

=>  successor-of-function-call  (unit)  #IF  unit  #IS 
<function-call> ; 

=>  simple-successor-unit-of  (unit)  fOTHERWlSE  #. 


#PR0C-DF  successor-of-function-call  (unit) 

"(unit  #IS  <function-call> } " 

^COMPUTE!  #ASS1GN-LATEST-VALUE 
(procedure-return-point-unique- to 

( procedure-decl-invoked-by (unit ) ) , "receives"  unit) 

# COMPUTE ! assignment -to- input -parameters 
(procedure-decl-invoked-by  (unit)  , "arguments-f rom" 
unit ) 

#RETURN-WITH-VALUE!  #FIRST-ELEMENT-IN 
sequence-of-executable-procedure-units-in 
(procedure-decl-invoked-by  (unit))  #. 


IDF  procedure-decl-invoked-by  (unit) 

"{unit  IIS  <function-call> } " 

=>  procedure -dec -invoked -correspond in g-to 

( declaration -for  ( function -name -in -ref erence 
(unit)))  #. 


IDF  procedure-dec-invoked-corresponding-to  (dec) 

"{dec  IIS  <procedure-declaration>  lU 
<subprogram-declaration>> } " 

= > dec  IIF  dec  IIS  <procedure-declaration> ; 
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=>  library-procedure-subprogram-corresponding-to  (dec) 
#IF  dec  #IS  <subprogram-declaration>  #. 


#DF  library-procedure-subprogram-corresponding-to  (dec) 

I 

"{dec  #IS  <subprogram-declaration> } " , 

=>  #FIRST  proc  #IN  sequence-of-library-procedures-in 
(system-containing  (dec))  #SUCH-THAT 
(name-declared-by  (dec)  #EQW  name-of-proc  (proc))  #. 


#DF  name-of-proc  (dec) 

"{dec  #IS  <procedure-subprogram>}" 

=>  #SEG  3 #0F  (procedure-head-of  (dec))  #. 
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#DF  sequence-of-library-procedures-in  (sys) 

"{sys  #IS  < jovial- j 3-system> } " 

=>  #SEQUENCE-0F  <procedure-subprogram>  #IN 
optional-library-of  (sys)  #. 


#DF  successor-of -special -boolean -operand (unit ) 

"{  unit  #EQ  current-executable-unit  #AND  ($unit$) 
is-operation-or-primitive-operand  #AND  ($unit$) 
i s-special -boo lean -operand }" 

=>  innermost -special -boolean -operation -containing 
(unit)  #IF 

innermost-special -boolean-operation-containing 
(unit)  #IS  <dis junction>  #AND  latest-value  (unit) 
#EQ  ' 1 ’ "(true)"  ; 

=>  innermost -special -boolean -operation-containing 
(unit)  #IF 

innermost -special -boolean -operation -containing 
(unit)  #IS  <con junction>  #U<chain-relation>  #AND 
latest-value  (unit)  #E0  *0'  "(false)"; 

=>  simple-successor-unit-of  (unit)  fOTHFPWISE  #. 
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#DF  evaluation-ef fect-of  (unit) 

"{unit  #EQ  current-executable-unit  #AND 
( $unit$ )is-operation-or-primitive-operand  } " 

= > evaluate-special-boolean-operand  (unit ) #IF  (^!unit$) 
is-special-boolean-operand  ; 

= > evaluate  (unit)  fOTHERWISE  if. 


#DF  evaluate  (unit) 

"{unit  #EQ  current-executable-unit  #AND  ($unit$) 
is-operation-or-primitive-operand }" 

=>  #NIL  #IF  ($unit$)is-a-variable-not-to-be-evaluated 
#0R  ($unit$)is-f unction-reference ; 

= > #N1L  #IF  ($unit$)  is-special-boolean-operation ; 

= > assign-latest-value  (unit,  value(unit)  ) //OTHERWISE 

//. 


//DF  latest-value  (operand) 

" { ( $operand$ ) is -operation -or-primitive-oper and  } " 

=>  #LATEST-VAHJE  (uniqu6-variable-corresponding-to 
(operand))  #. 

#DF  assign-latest-value  (nx,val) 

"{nx  //IS  //NODE}" 

=>  #ASSIGN-LATEST-VALUE 

(unique-variable-corresponding-to  (nx),  "receives" 
val)  #. 


//PROC-DF  evaluate -special -boo lean -operand  (unit ) 

"{  unit  //EQ  current-executable-unit  //AND  ($unit$) 
is-operation-or-primitive-operand  #AND  ($unit$) 
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is-special -boolean-operand } ” 

^COMPUTE!  evaluate (unit ) 

#COMPUTE!  #ASSIGN-LATEST-VALUE 
(unique -variable -cor responding- to 
( innermost -special -boolean -operation-containing 
(unit)),  "receives"  latest-value  (unit)) 

#R£TURN-WITH-VALUE!  #NIL  #. 


#DF  is-a-variable-not- to-be -evaluated (unit ) 

" { ( $unit$ ) is-operation-or-primitive-operand  } " 

=>  ($unit$)is-not-to-be-evaluated  #IF 
( $unit$ ) is-a-variable ; 

= > #FALSE  //OTHERWISE  #. 


#DF  is-not-to-be-evaluated  (unit) 

"{  ($unit$)  is-a-variable  }" 

= > #TRUE  //IF  ($unit$)  is-a-receiving-variable-only ; 

= > #TRUE  #IF  ($unit$)  is-call-by-name-argument ; 

=>  #TRUE  #IF  ( $variable-Gontaining  (unit)  $) 
is-actual-output-data-parameter ; 

=>  ($special-modif ier-containing  (unit)  $) 
is-not-to-be-evaluated  #IF  ($unit$) 
i s-mod if ied -by-special-modifier ; 

= > #FALSE  //OTHERWISE  // . 


//DF  variable-containing  (unit) 

= > unit  #IF  #NOT  //THERE-EXISTS  nx  #IN  ( 

//SEQUENCE-OF-ANCESTORS-OF  unit)  #SUCH-THAT  (nx  #IS 
<variable>)  ; 

= > #LAST  nx  /(IN  ( #SEOUENCE-OF-ANCESTORS-OF  unit  ) 
#SUCH-THAT  (nx  //IS  <variable>)  iOTHERWISF  #. 
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#DF  is-modif ied-by-special-modif ier  (var) 
"{  ($var$)  is-a-variable  }” 


=>  var  #EQ  ob ject-variable-of 

(special-modifier-containing  (var))  #IF  ($var$) 
is -con tained- in -a-special -modifier; 


=>  #FALSE  ^OTHERWISE  #, 


#DF  is-contained-in-a-special-modif ier  (var) 
"{  ($var$)  is-a-variable  }" 


=>  #THERE-EXISTS  ancestor  #IN  ( 

#SEQUENCE-OF-ANCESTORS-OF  var)  #SUCH-THAT 
( ($ancestor$)  is-a-special-modif ier ) #. 


#DF  is-a-special-modif ier  (nx) 


=>  #TRUE  #IFF  ($nx$)  is-bit-f unctional-modif ier  #0R 
($nx$)  is-byte-functional-modif ier  #0R  ($nx$) 
is-char-functional-modifier  #0R  ($nx$) 
is-mant-functional-modif ier  #0R  ($nx$) 
is-odd-functional-modii’ier  #. 


#DF  is-byte-functional-modif ier  (nx) 

=>  #TRUE  #IFF  nx  #IS  <special-literal-variable> 


#DF  is-mant-functional-modif ier  (nx) 

=>  #TRUE  #IFF  nx  #IS  <special-f ixed-variable>  #, 


(iDF  is-odd-functional-modif ier  (nx) 

=>  #TRUE  #IFF  nx  #IS  <special-boolean-variable> 
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=>  #LAST  ancestor  #IN  ( #SEOUENCE-OF-ANCESTOPS-OF  nx) 
#SUCH-THAT  ( (iancestor-t ) is-a-special-modif ier ) #. 


#DF  is-a-receiving-variable-only (var) 

" { ($var$)is-a-variable}" 

=>  var  #EQ  receiving-variable-of  ( left-hand-side-of 
( innermost-executable-statement-containing(var) ) ) 
#IF  innermost -executable -statement -containing (var ) 
#IS  <a3signment-statement> ; 

=>  #FALSE  ^OTHERWISE  #. 


#DF  receiving-variable-of (nx) 

=>  #FIRST  nx  #IN  ( #SEQUENCE-OF-NODES-IN  nx)  #SUCH-THAT 
( ($nx$)is-a-variable  #0R  nx  #IS  <name>  ) #. 


#DF  is -special -boolean-operand (unit ) 

"{unit  #EQ  current-executable-unit  #AND  (Junit$) 
i s -ope ra t ion -or-primitive -operand  } " 

= > #FALSE  #IF  #NOT  (.*unit$) 

is -contained -in -a -special -boo lean -express ion  ; 

=>  #TRUE  #IF  ($unit$)  is-chain-relation-operand  #0R 
( $unit$)  is-con June t ion -or-d is June t ion -operand  ; 

=>  #FALSE  #OTHERWISE  #. 

I 

#DF  is-special-boolean-operation  (unit) 

"{unit  #EQ  current-executable-unit  #AND  ($unit$) 
is-operation-or-primitive-operand } " 

= > #TRUE  #IFF  unit  //IS  <con junction>  #U<dis junction> 
//U<chain-relation>  #. 


//DF  innermost-special-boolean-operation-containing  (unit) 
"{unit  //EQ  current-executable-unit  #AND  ($unit$) 
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is-operation-or-primitive-operand  #AND  ($unit$) 
is-special-boolean-operand }" 

= > #LAST-ELEMENi'-IN 

sequence-of -special -boolean -operations -containing 
(unit)  #. 


#DF  is-contained-in-a-special-boolean-expression  (unit) 

"{unit  #EQ  current-executable-unit  #AND  ($unit$) 
is -operation -or -primitive -ope rand } ” 

=>  #TRUE  #IFF 

sequence-of -spec ial-boolean-operations-cont a in ing 
(unit)  #NE0  #NILSEC  #. 


/;fDF  is -chain -relation -ope rand  (unit ) 

"{unit  #EG  current-executable-unit  #AND  ($unit$) 
is -ope rat  ion -or -primitive -operand } " 

=>  #TRUE  #IFF  unit  #IS  <relation>  #. 


#DF  is-con June tion-or-d is junction-operand (unit ) 

"(unit  #EQ  current-executable-unit  //AND  ($unit$) 
is-operation-or-primitive-operand  #AND  ($unit$) 
is-contained-in-a-special -boolean-express ion } " 

= > #TRUE  //IFF  innermost-operation-containing  (unit)  #IS 
<con junction>  #U<dis junction>  #. 


<*DF  sequence-of-special-boolean-operations-containing  (unit) 

” { ( $unitj ) is-operation-or-primitive-operand } ” 

= > #SUBSEOUENCE-OF-ELEMENTS  bool-op  //IN 

sequence-of-operations-containing  (unit)  #SUCF-THAT 
( ( iibool-op$  ) is-special-boolean-operation  ) #. 


//DF  innermost-operation-containing  (unit) 

"{($unit$)  is-operation-or-primitive-operand  #AND 
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($unit$)  i s-contained -in -a-special -boolean-opera t ion }" 

=>  #LAST-ELEMENT-IN  sequence-of-operations-containing 
(unit)  #. 


#DF  sequence-of-operations-containing  (unit) 

"{($unit$)  is -opera tion-or-primitive-operand } " 

=>  #SUBSEQUENCE-OF-ELEMENTS  op  #IN 
sequence-of-evaluat ion-units -in 

(innermost-expression-containing  (unit))  #SUCH-THAT 
(op  #IS-IN  #SEQUENCE-OF-ANCESTORS-OF  (unit)  ) #IF  ($ 
unit  $)  is-contained-in-an-expression  ; 

=>  #NILSEQ  #OTHERWISE  #. 


#DF  innermost-expression-containing  (unit) 

”{ ($unit$)  is-operation-or-primitive-operand }" 

=>  /LAST  fx  /IN  (/SEQUENCE-OF-ANCESTOPS-OF  (unit)  ) 

/SUCH-THAT  (($fx$)  is-an-evaluated-expression  #0R  ($ 
fx  $)  is-an-evaluated-atomic-formula)  #. 


#DF  is-contained-in-an-expression  (unit) 

=>  /TRUE  /IFF  /THERE-EXISTS  fx  /IN 

/SEOUENCE-OF-ANCESTORS-OF  (unit)  /SUCH-THAT  ( ($  fx 
$)  is-an-evaluated-expression  /OR  ($  fx  $) 
is-an-evaluated-atomic-formula  ) /. 


/DF  is-an-evaluated-formula  (nx) 

"{  nx  /IS  /NODE  }" 

=>  nx  /IS  <boolean-f ormula>  /U  <numeric-formula>  /U 
<formula>  /. 


//DF  unique-variable-corresponding-to  (unit) 

"{($unit$)  is-operation-or-primitive-operand  /AND  unit 
/EQ  current-executable-unit}" 
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=>  'evaluation-variable$'  #CW  ( #0RDP0SIT  unit  #IN 
(sequence-of-nodes-in  ( #R00T-N0DE  (unit))))  #. 

#DF  sequence-of-nodes-in  (nx) 

"{  nx  #IS  #N0DE  )" 

=>  #SEQUENCE-OF-NODES-IN  nx  #. 

#DF  value  (unit) 

”{($unit$)  is-operation-or-primitive-operand  #AND  unit 
#EQ  current-executable-unit}" 

=>  numeric-binary-operation-value  (unit)  #IF  (Junit^) 
is-numeric-binary-operation ; 

=>  numeric-unary-operation-value  (unit)  #IF  ($unit$) 
is-numeric-unary-operation ; 

=>  boolean-operation-value  (unit)  #IF  ($unit$) 
is-boolean-operation ; 

=>  relational-operation-value  (unit)  #IF  ($unit$) 
is-relational-operation ; 

=>  variable-value  (unit)  #IF  ($unit$)  is-a-variable ; 

=>  constant-value  (unit)  #IF  ($unit$)  is-a-constant  #. 

#DF  numeric-binary-operation-value  (unit) 

"{($unit$)  is-numeric-binary-operation  #AND  unit  #EC 
current -executable -unit }" 

=>  sum-value  (unit)  #IF  unit  #IS  <sum>; 

= > difference-value  (unit)  #IF  unit  #IS  <dif ference> ; 

=>  product-value  (unit)  #IF  unit  #IS  <product>; 

=>  quotient-value  (unit)  #IF  unit  #IS  <quotient>; 

=>  exponential-value  (unit)  #IF  unit  #IS  <exponential> 
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#DF  sum-value  (unit) 

"{unit  #IS  <sum>  #AND  unit  #E0 

current -executable -unit } " 

=>  special-index-sum-value  (unit)  #IF  ($unit$) 
is-special-index-sum ; 

=>  integer-add  (operand 1-of (unit ) , "+" 

operand2-of (unit ) ) #IF  type  (unit)  #EQW  'integer'; 

= > fixed-add  (operand  1 -of (unit ) , "+"  operand2-of (unit ) ) 
#IF  type  (unit)  #EQW  'fixed'; 

=>  floating-add  (operandl-of (unit) , "+"  operand2-of 
(unit))  #IF  type  (unit)  #EQW  'floating'  #. 


#DF  is-special-index-sum  (op) 

"{op  #EQ  current-executable-unit}" 

=>  #FALSE  #IF  op  #IS-N0T  <sum> ; 

=>  #FALSE  #IF  #N0T  ($op$)  is-contained-in-an-index ; * 

= > #TRUE  itlFF  ($innermost-index-formula-containing 

(op)$)  is-var-plus-or-minus-constant  #0THFRWISF  j 

i 

i 

#DF  special-index-sum-value  (unit)  ^ 

" { ($unit$)is-special-index-sum}"  | 

=>  implementation-integer-add  (integer-latest-value 
(operand 1-of (unit) ) , "+"  integer-latest-value 
( operand2-of (unit ) ) ) #. 


#DF  integer-add  (operandl,  "+"  operand2) 

"{ ($operand  1 , operand2$) 

are -each-opera t ion -or-pr imi t i ve-operand  }" 

=>  implementation-integer-add  (latest-value  (operandl), 
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latest-value  (operandP))  #. 


#DF  fixed-add  (operand  1,  " + " operandP) 

" { ( $operand 1 , operand2$) 
are-each-operation-or-primitive-operand }” 

=>  implementation-fixed-add  (latest-value  (operandl), 
"with”  attributes  (operandl),  "+"  latest-value 
(operand2),  "with"  attributes(operand2) , 
"producing-a-result-with"  attributes  (sum-containing 
(operandl,  "and"  operand2)))  #. 


#DF  floating-add  (operandl,  "+"  operand2) 

"{ ($operand 1 , operand2$) 

are-each -operation-or-primative-operand } " 

=>  implementation-f loating-add ( 

la  test -value  (operand  1 ) , latest-value(  operand  2) ) # . 


#DF  integer- latest- value (operand) 

" { ( $operand$ ) is-operation-or -primitive-operand } " 

= > latest-value  (operand)  #IF  type  (operand)  #FQ’W 
' integer' ; 

=>  ($  latest-value  (operand),  "with"  attributes 

(operand)  $)  converted-f ixed-to-integer  #1F  type 
(operand)  #EQW  'fixed'; 

=>  ($  latest-value  (operand)  $) 

converted-f loating-to-integer  #IF  type(operand ) #EQW 
'floating'  #. 


#DF  is-contained-in-an-index  (op) 

"{op  #IS  <sum>  #U  <difference>}" 

=>  #TRUE  #IFF  #THERE-EXISTS  nx  #IN  ( 

#SEOUENCE-OF-ANCESTORS-OF  (op)  ) #SUCH-THAT  (nx  #IS 
<index-formula>)  #. 
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#DF  innermost-index-formula-containing  (op) 

"{op  #IS  <sum>  #U  <difference>  #AND  ($op$) 
is-contained-in-an-index } " 

=>  #LAST  nx  #IN  ( #SE0UENCE-0F-ANCEST0RS-0F  (op)  ) 
#SUCH-THAT  (nx  #IS  <index-formula> ) #. 


#DF  is-var-plus-or-minus-constant  (nx) 

"(nx  #IS  <index-formula>}" 

=>  #FALSE  #IF  formula-comprising  (nx)  #IS 
<atomic-numeric-formula> ; 

=>  #FALSE  #IF  outermost-numeric-operation-in  (nx) 
#IS-N0T  <sum>  #U  <dif ference> ; 

=>  #TRUE 

#IFF( ^operand 1-of (outermost-numeric-operation-in 
(nx) )$)is-a-variable  #AND  ( $operand2-of 
(outermost-numeric-operation-in  (nx  ))$) 
is-a-constant  ^OTHERWISE  #. 


#DF  sum-containing  (operand  1,  operand2) 

" { ( $operand  1 , operand2$) 

are -each -ope rat ion -or -primitive -operand } " 

= > #LAST  nx  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  (operand  1)  ) 
#SUCH-THAT  (nx  #IS  <sum>)  #. 

#DF  outermost-numeric-operation-in  (nx) 

"(nx  //IS  <index-formula> } " 

=>  #FIRST  node  #IN  ( #SECUFNCE-0F-N0DES-IN  (nx)  ) 
#SUCH-THAT  (($node$)  is-numeric-operation ) #. 

#DF  difference-value  (unit) 

"(unit  #IS  <difference>  #AND  unit  #EQ 
current -executable -unit } " 
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=>  special-index-difference-value  (unit)  #IF  ($unit$) 
is-special-index-dif ference ; 

=>  integer-subtract  ( operand  1 -of (unit ) , operand2-of 

(unit))  #IF  type  (unit)  #EQW  'integer'; 

=>  fixed-subtract  (operand 1-of (unit ) , operand2-of 

(unit))  #IF  type  (unit)  #EQW  'fixed'; 

=>  floating-subtract  ( operand 1-of (unit ), "-" 

operand2-of (unit ) ) #IF  type  (unit)  #EQW  'floating' 


/)DF  is-special-index-dif  ference  (op) 

"{op  #EQ  current-executable-unit}" 

=>  #FALSE  #IF  op  #IS-N0T  <dif f erence> ; 

=>  #FALSE  #IF  #N0T  ($op$)  is-contained-in-an-index ; 

=>  #TRUE  #IFF  ( $innermost-index-f ormula-oontaininK 
(op)$)  is-var-plus-or-minus-constant  #0THFRWISE  #. 


#DF  special-index-difference-value  (unit) 

" { ($unit$)  is-special-index-dif ference } " 

=>  implementation-integer-sub tract 

(integer-latest-value  (operand  1 -of (unit )) , 
integer-latest-value  (operand2-of (unit ) ) ) #. 


#DF  integer-subtract  (operand  1,  operand2) 

" { ( $operand 1 , operand2$) 

are -each-opera tion-or-primitive -operand } " 

=>  implementation-integer-subtract  (latest-value 
(operandl),  latest-value  (operand2))  #. 


#DF  fixed-subtract  (operandl,  operand2) 

" { ( $operand  1 , operand2$) 


I 

L 
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are -each -ope ration-or -primitive -operand  } " 

=>  iraplementation-f ixed-subtract  (latest-value 
(operandl),  "with”  attributes  (operandl), 
latest-value  (operandP),  "with"  attributes 
(operandP),  ”producing-a-result-with"  attributes 
(difference-containing  (operandl,  "and”  operandP))) 
#. 


#DF  floating-subtract (operand  1 , operandP) 

" { ( $operand 1 , operand 2$ ) 

a re-each -opera t ion -or-primative -operand } " 

=>  implementation-floating-subtract 

( latest-value(operand  1 ) , latest-value(operand2) ) 


#DF  difference-containing  (operandl,  operand2) 

" { ( $operand 1 , operand2$) 

ar e -each -opera t ion -or-primitive -operand } " 

=>  #LAST  nx  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  (operandl)  ) 
#SUCH-THAT  (nx  #IS  <dif ference> ) #. 


#DF  product-value  (unit) 

"{unit  #IS  <product>  #AND  unit  #EQ 

curren t -executable-uni t } " 

=>  integer-product  (operand 1-of (unit ) , "*" 

operand2-of (unit ) ) #IF  type  (unit)  #EQW  ’integer’; 

= > fixed-product  ( operand  1 -of (unit ) , 

operand2-of (unit ) ) #IF  type  (unit)  #E0W  ’fixed’; 

=>  f loatine-product  (operand 1-of (unit ) , "•" 

operand2-of (unit ) ) #IF  type  (unit)  #EQW  ’floating’ 


#DF  integer-product  (operandl, 
" { ( $operand 1 , operand2$) 


n *11 


operand2 ) 
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are-each-operation-or-primitive-operand } " 

=>  implementation-integer-product  (latest-value 
(operandl),  latest-value  (operandP))  #. 


#DF  fixed-product  (operandl,  operandP) 

” { ( $operand 1 , operand2$) 

are -each-opera t ion -or-primitive-operand } ” 

=>  implementation-fixed-product  (latest-value 
(operandl),  "with”  attributes  (operandl), 
latest-value  (operandP),  "with"  attributes 
(operand2),  "producing-a-result-with"  attributes 
(product-containing  (operandl,  "and"  operand2)))  #. 


#DF  floating-product (operand  1 , operand2) 

" { ( $operand 1 , operand2$ ) 

ar e -each -opera t ion -or -primative -operand } " 

= > imp lament at ion -floating-product 

(latest-value(operand1 ) , "*"  latest-value(operand2) ) 


#DF  product-containing  (operandl,  operand2) 

" { ( $operand 1 , operand2$) 

are-each-operation-or-primitive-operand } " 

=>  #LAST  nx  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  (operandl)  ) 
#SUCH-THAT  (nx  »1S  <product>)  #. 


#DF  quotient-value  (unit) 

"{unit  #IS  <quotient>  #AND  unit  #EQ 
current -executable -uni t } " 

r>  fixed-quotient  ( operand  1 -of (unit ) , "/" 

operand2-of (unit) ) #IF  type  (unit)  #EQW  'fixed'; 

=>  floating-quotient  ( operand  1 -of (unit ) , "/" 

operand2-of (unit ) ) #IF  type  (unit)  #EQW  'floating' 
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#DF  fixed-quotient  (operandl,  "/"  operandP) 

” { ( $operand  1 , operand2$) 

ar e -each -opera t ion -or-p r imi t i ve-operand }" 

=>  implementation-fixed-quotient  (latest-value 
(operandl),  "with"  attributes  (operandl),  "/" 
latest-value  (operandP),  "with"  attributes 
(operandP),  "producing-a-result-with"  attributes 
(quotient-containing  (operandl,  "and"  operandP)))  #. 


#DF  floating-quotient (operand  1 , "/"  operandP) 

" { ( $operand 1 , operand2$) 

are-each-operat ion-or-primati ve-operand }" 

=>  implementation-floating-quotient 

(latest-value(operand 1 ) , "/"  latest-value(operand2) ) 


#DF  quotient-containing  (operandl,  operand2) 

" { ( $operand 1 , operand2$) 

are -each -opera t ion -or-primitive -operand }" 

=>  #LAST  nx  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  (operandl)  ) 
#SUCH-THAT  (nx  #IS  <quotient>)  #. 


#DF  exponential-value  (unit) 

"{unit  #IS  <exponential>  #AND  unit  #EQ 
current -executable-unit }" 

=>  special-exponential-value  (unit)  #IF  (^unit$) 
is -special -exponential; 

=>  floating-exponential-value  (unit)  fOTHEPWISE  #. 


#DF  is-special-exponential  (op) 

"{op  #IS  <exponential>  #AND  unit  #EQ 
current -executable -unit } " 
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= > /FALSE  y/IF  operand2-of (op)  #IS-N0T 
<in teger -const ant > ; 

= > /FALSE  #IF  type  (operand  1 -of (op ) ) /EOW  'floating'; 

=>  /TRUE  #IF  #STRING-OF-TERMINALS-OF  (operand2-of (op ) ) 
* size-of-result-of  (operand 1-of (op) ) < 
bits-per-word ; 

=>  /FALSE  /OTHERWISE  /. 


/DF  special-exponential-value ( unit ) 

"{unit/IS  <exponential>  /AND  unit  /EQ 
curr ent -executable -uni t } " 

= > special-exponential(operand1-of (unit) , "*»" 
operand2-of (unit ) ) /. 


/DF  special-exponential (operand  1 , " **”operand2 ) 

" { ( $operand 1 , operand 2$ ) 

are-each-operation-or-primative-operand } ” 

=>  imp lamentation -special -exponential 

( la test -value ( operand  1),"**”  latest-value(operand2)) 

/. 


/DF  floating-exponential -value (unit ) 

"{unit  /IS  <exponential>  /AND  unit  /EQ 
curren t -executable -uni t } " 

=>  floating-exponential (operand 1-of (unit ) , "»»" 
operand2-of (unit) ) /. 


/DF  floating-exponential  (operand  1 , operand  2) 

”{ ($operand1 .operand 2$) 

are -each-operat ion -or-primative -operand  } ” 

=>  implemen tat ion -floating-exponential 

(latest -value (operand  I),”**”  latest-value(operand2)) 


eval-l45 


Page  eval-146 

Specification  of  J0VIAL(J3) 
Semantic  Definition  Section 


07/05/77 
SEMANOL  Project 
Evaluation 


#DF  numeric-unary-operation-value  (unit) 

"{($unit$)  is-numeric-unary-operation  #AND  unit  #EQ 

current-executable-unit}" 

=>  abs-function-value  (unit)  #IF  unit  #IS 
<abs-function> ; 

=>  nwdsen-function-value  (unit)  #IF  unit  #IS 
<nwdsen-function> ; 

= > loc-function-value  (unit)  #IF  unit  /fIS 
<loc-function> ; 

=>  unary-minus-value  (unit)  #IF  unit  #IS  <unary-minus> ; 

=>  unary-plus-value  (unit)  #IF  unit  #IS  <unary-plus>  #. 


y/DF  abs-function-value  (unit) 

"{unit  y/IS  <abs-function>  #AND  unit  y/EQ 
cur rent -executable -unit } " 

=>  ($standard-magnitude  (latest-value  (operandl-of 
(unit)))  #CW  '#62'$) 

with-result-converted-to-implementation-f orm  y/ . 


"The  largest  negative  number  becomes  zero." 

#DF  nwdsen-function-value(unit ) 

"(unit  #IS  <nwdsen-function>}" 

=>  ($  fCCNVERT  2 ( number-of-words-per-entry-in 
(declaration -for  (tabular-name-of 

(unit) )))$)with-re suit-con verted -to- implementation -form 

#. 

y/DF  loc-function-value  (unit) 

=>  ($  fCONVERT  2(  word-address-f rom 
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( standard -ref erence-address-of 

( loc-name-of (unit ) ) ) ) $ )converted-to-implementation-form 


#DF  loc-name-of  (unit) 

"{unit  #IS  <loc-function>}" 

=>  #SEG  5 #0F  unit  #IF  unit  #1S  #CASE  1 #0F 
<loc-function>  #. 


#DF  unary-minus-value  (unit) 

"{unit  //IS  <unary-minus>  #AND  unit  //EQ  i 

current-executable-unit}" 

=>  ($  #NEG  ( $latest-value  (operandl-of  (unit))$) 

converted-to-standard-form$ ) 1 

with-result-converted-to-implementation-f  orm  // . 


#DF  unary-plus-value  (unit) 

"(unit  //IS  <unary-plus>  #AND  unit  //EQ 
current-executable-unit } " 

= > unit  //. 


//DF  boolean-operation-value  (unit) 

"{($unit^!)  is-boolean-operation  //AND  unit  //EQ 
current-executable-unit}" 

= > disjunction-value  (unit)  #IF  unit  //IS  <dis  junction> ; 
= > conjunction-value  (unit)  #IF  unit  //IS  <con  junction> ; 
= > negation-value  (unit)  #IF  unit  //IS  <negation>  //. 


//DF  disjunction-value  (unit) 


"{unit  //IS  <dis junction>  #AND  unit  //EQ 
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=>  latest-value  (unit)  #. 

#DF  conjunction-value  (unit) 

"{unit  #IS  <con junction>  #AND  unit  //EQ 
current-executable-unit } " 

=>  latest-value  (unit)  #. 

#DF  negation-value  (unit) 

"(unit  #IS  <negation>  #AND  unit  #IS 
cur rent -executable -unit } " 

=>  '1'  #IF  latest-value  (operandl-of  (unit))  #E0W  ’O'; 
=>  *0’  fOTHERWISE  #. 

y/DF  relational-operation-value  (unit) 

"{(!lunit$)  is-relational-operation  #AND  unit  y/EQ 
cu rrent -executable -uni t } " 

= > entry-relation-value  (unit)  #IF  unit  y/IS 
<en try-re la t ion > ; 

=>  status-relation-value  (unit)  #IF  unit  #1S 
< status -relat ion > ; 

= > chain-relation-value  (unit)  #IF  unit  y/IS 
<chain-relation>; 

= > relation-value  (unit)  #IF  unit  y/IS  <relation>  #. 

y/DF  entry-relation-value  (unit) 

"{unit  y/IS  <entry-relation>}" 

= > '1'  #IF  ($  entry-compare-value(unit ) , "and" 
yySTRING-OF-TERMINALS-OF 

(relat ion -const ant -of (unit) )$)  a re-in -agreement ; 

= > ’O'  fOTHERWISE  . 
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#DF  entry-compare-value(unit ) 

"{unit  #IS  <entry-relation>}" 

= > entry-compare  (latest-value  ( operand  1 -of (unit )), "to" 
la  test -value  ( ope  r and  2-of  (unit )))//. 

#DF  entry-compare ( val 1 , val2 ) 

"{  ($\val 1 , val 2\$)are-strings-of-ones -and -zeroes}" 

=>  ($#SIGN(standard-rep(val1 ) - standard-rep ( val2 ))$ ) 
converted-to-rel-symbol  #. 

#DF  chain-relation-value  (unit) 

"{unit  #IS  <chain-relation>} " 

=>  latest-value  (unit)  #. 

#DF  relation-value  (unit) 

"{unit  #IS  <relation>  #AND  unit  #EQ 
current-executable-unit } " 

=>  status-relation-value  (unit)  #IF  ($unit$) 
is-actually-a-status-relation ; 

=>  literal-relation-value  (unit)  #IF  ($unit$) 
is-actually-a-literal-relation ; 

= > numeric-relation-value  (unit)  #IF  (^!unit$) 
is -actually-a-numeric -relation  # . 

#DF  is-actually-a-status-relation  (unit) 

"{unit  #IS  <relation>}" 

=>  #TRUE  #IFF  ($operand 1-of (unit )$) 

is-f ile-name-or-status-variable  #AND 
( $operand2-of (unit)$)  is-a-status-f ormula  #. 
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#DF  is-file-name-or-status-variable  (nx) 

"{ ( $nx$)is-operation-or-primitive-operand }" 

=>  #FALSE  #IF  nx  #IS-N0T  <simple-variable>  #U 
<indexed-variable> ; 

=>  #TRUE  #IFF  ($detailed-declaration-for  (nx)$) 
is-f ile-or-status-declaration  fOTHERWISE# . 


#DF  is-file-or-status-declaration(decl ) 

"{decl  #IS  <simple-item-declaration>  #U 
<array-declaration>  #U  <ordinary-table-declaration>  #U 
<def ined -entry- table-declaration>  #U 
<like-table-declaration>  #U 
< ord inary- table -item-declarat ion > #U 
<string-item-declaration>  #U 

<def ined-entry-item-declaration>  #U  <f ile-declaration> 
#U  <procedure-declaration>  #U  <subprogram-declaration> 
#1]  <mode-directive>}” 

=>  #TRUE  #IF  decl  #IS  <f ile-declaration> ; 

=>  ($decl$ )is-status-declaration 

#IF($decl$) is -typed -data -declaration ; 

=>  #FALSE  ^OTHERWISE  #. 


#DF  is-typed-data-declaration  (nx) 

"{#IS  #N0DE}" 

= > #TRUE  #IFF  nx  //IS  <simple-itera-declaration>  #U 
<array-declaration>  #U 
<ord inary- table-item-declarat ion > #U 
<string-item-declaration>  #U 

<def ined-entry-item-declaration>  #U  <mode-directive> 

it. 


#DF  is-status-declaration  (decl) 

*’ { ( $decl$  )is-typed-data-declaration  #0R  decl  #IS 
<procedure  declation>}” 
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=>  #TRUE  #IFF  declaration-type  (decl)  #EQW  'status'  #. 


#DF  is-a-status-formula(nx) 

"{ ($nx$)  is-operation-or-primitive-operand  } " 

= > #TRIIE  #IF  nx  #IS  <status-constant>  ; 

=>  (Jdetailed-declaration-for  (nx)$) 
is-status-declaration  #IF 
( $nx$ ) is -typed -data -reference ; 

=>  function-type(nx)  #E0W  'status'  #IF(#nx$) 
is-function-reference  #. 


#DF  is-typed-data-reference  (nx) 

"{  ($nx$)  is-operation-or-primitive-operand } " 

=>  #FALSE  #IF  nx  #IS-N0T  <simple-variable>  #0 
< indexed -variable> ; 

= > #TRL)E#IFF  ($  detailed-declaration-f or  (nx)$) 
is-typed-data-declaration  #0THERWISE# . 


#DF  status-relation-value  (srel) 

"{srel  #IS  <status-relation>  #0R  srel  IIS  <relation> 
lAND  ($srel$)  is-actually-a-status-relation } " 

=>  '1'  #IF  ( $status-compare-value  (srel),  "and" 
#STRING-OF-TERMINALS-OF  (relation-constant-of 
(srel))$)  are-in-agreement ; 

=>  'O'  lOTHERWISF  #. 


IDF  status-compare-value  (srel) 

=>  implementation-status-compare  (latest-value 
(operand 1-of (srel )), "with  + " 
la test -value ( operand 2-of (srel ) ) )l. 


IDF  implementation-status-compare  (valx,valy) 
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=>  relation-with-integer-zero-of 

(implementation-integer-subtract  (valx,  valy)) 

#. 


#DF  is-actually-a-literal-relation  (unit) 

*•{  unit  #IS  <relation>}'' 

=>  #TRUE  #IF  ($operand2-of (unit)$)is-literal-object ; 

=>  #TRUE  #IF  ($operand1-of(unit)$)is-literal-object; 

=>  #TRUE  #IFF 

( $operand 1-of (unit )$)is -actual ly-a-literal -relation 
^OTHERWISE#. 


#DF  is-literal-ob ject (unit ) 

” { ( $unit$ ) is -opera tion-or-primitive-operand } " 

=>  #TRUE  #IFF  type  (unit)  #IS-IN 

X'hollerith' , ’ transmission-code ' \ #. 


#DF  literal-relation-value  (unit) 

''{unit  #IS  <relation>  #AND  ($unit$) 
is-actually-a-literal-relation ) " 

=>  '1'  #IF  ($literal-compare-value  (unit), "and" 
#STRING-OF-TERMINALS-OF 

( relation-constant-of (unit ) ) $ ) are-in -agreement ; 
=>  ’O'  #0THERWISE#. 


#DF  literal-compare-value  (unit) 

"{  unit  #IS  <relation>  #AND 
( $unit$ ) is-actually-a-literal-relation } " 

=>  literal-compare  (normalized-literal  (lef t-operand-of 
(unit),  "wrt"  right-operand-of  (unit)),  "to" 
normalized-literal  (right-operand-of  (unit),  "wrt" 
left-operand-of  (unit)))  #. 
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#DF  normalized-literal  (operand  1 ,operand2) 

" {type (operand  1 )#IS-IN 

\*hollerith' , ' transmission -code octal ' \# AND  type 
(operandP)  #IS-IN 

\*hollerith'  , 'transmission -code'  , 'octal'M" 

=>  latest-value  (operandl)  #IF  #LENGTH  ( 
latest-value(operand  1 ) ) >=  #LENGTH( 
latest-value(operand2) ) ; 

= > padded-literal-value  (operand  1 , "to"  #LENGTH  ( 
latest-value  (operand2))  - ILFNGTH 
(latest-value(operand1 ))  "bits")  #0THERWISE#. 


#DF  padded-literal-value  (operand,  "to"  n "bits") 

"{  n>0  #AND  type(operand ) 

#IS-IN\ ' hollerith ’ , ' transmission-code ' , 'octal ' \}" 

=>  ($n$ )bits-worth-of-hollerith-blanks  #CW 

latest-value(operand)  #IF  type  (operand)  #EQW 
' hollerith ' ; 

=>  ($n$)  bits-worth-of-transmission-code-blanks  #CW 
latest-value(operand ) #IF  type  (operand)  #EQW 
' transmission -code ' ; 

= > ($n$)  zeroes  #CW  latest-value(operand ) #IF  type 
(operand)  #EQW  'octal'  #. 


//DF  bits-worth-of-hollerith-blanks  (n) 

"{n>0}" 

=>  replicate  ( hollerith-for(#SPACE) , (n  - 1)  / 
bits-per-by te  + 1 "times"  ) #. 


#DF  bits-worth-of-transmission-code-blanks  (n) 

"{n>0}" 

= > replicate  ( transmission-code-for  (//SPACE),  (n  - 1)  / 
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bits-per-byte  + 1 "times")  #. 

#DF  replicate  (str,  n "times") 

"{n>=0}" 

=>  #NIL  #IF  n=0; 

=>  str  #CW  replicate  (str,  n - 1 "times")  #0THERWISE  #. 

#DF  literal-compare( val 1 ,val2) 

" { ( $\val 1 , val2\$ ) are -str ings-of -ones -and -zeroes } " 

=>  ($  #SIGN  (standard-rep( val 1 ) - standard-rep(val2) )$) 
converted-to-rel-symbol  #. 

#DF  converted-to-rel-symbol  (i) 

"{i  #IS-IN  \-1,0,1\}" 

=>  •='  #IF  i=0; 

=>  '<'  #IF  i=-1; 

=>  •>'  #IF  i=1  #. 

y/DF  standard-rep ( val ) 

" { ( $val$ ) i s -s t r in g-of-ones -and -zeroes } " 

= > val  #CW  •yyB2'  #, 

y/DF  is-actually-a-numeric-relation  (unit) 

"{  unit  y/IS  <relation>  #AND  y/NOT  ($unit$) 
is-actually-a-status-relation  #AND  #N0T  ($unit$) 
is-actually-a-literal -relation } " 

= > #TRUE  #IF  ( $operand2-of (unit ) $ ) is-numeric-ob ject ; 

= > #TRUE  #IF  ( $operand 1 -of (unit )$) is-numeric-ob ject ; 
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=>  #TRUE  #IFF 

( $operand 1 -of (unit )$) is-actually-a-numeric -relation 
#0THERWISE  #. 


#DF  is-numeric-ob ject  (unit) 

”{  ($unit$)  is-operation-or-primitive-operand }” 

=>  #TRUE  #IFF  type(unit)  #IS-IN  \ • integer’ fixed’ , 
'floating'X  #. 


#DF  numeric-relation-value  (unit) 

"{  (i  unit  $)  is-actually-a-numeric-relation  #AND  unit 
#E0  current-executable-unit  }" 

= > *1'  #IF  ($  numeric-compare-value  (unit),  ’’and" 

#STPING-0F-TEPMINALS-0F  (relation-constant-of  (unit) 
) $)  are-in-agreement ; 

=>  ’0’  fOTHERWISE  #. 


#DF  are-in-agreement  (compare-result,  rel-const) 

"{  compare-result  #IS-IN  \ \ #AND  rel-const 
y/IS-IN  \'EQ' , ’GR' , ’GQ' , ’LQ’ , 'LS' , ’NQ'\  }" 

=>  #TRUE  #IFF  compare-result  #EQW  '<’  #AND  rel-const 
#IS-IN  \'LQ' , ’LS’ , ’NQ'\  #0R  compare-result  #EQW  ’>’ 
#AND  rel-const  #IS-IN  \’GR’ , ’GQ’ , ’ NQ’ \ #0R 
compare-result  #EQW  ’=’  #AND  rel-const  #IS-IN 
\’EQ’ , ’GQ’ , ’LQ’\  #. 


#DF  numeric-compare-value  (unit) 

’’{unit  //IS  <relation>  #AND  unit  //EQ 
current-executable-unit}” 

=>  implementation-f loating-compare ( 

floating-latest-value  ( left-operand-of  (unit)), 
"with”  floating-latest-value 
( right-operand-of (unit ) ) ) #IF 

either-operand-is-f loat-in  (unit)  #E0W  ’floating’; 


eval-155  ===r======r ===r======r= 


1 


Page  eval-156 

Specification  of  J0VIAL(J3) 
Semantic  Definition  Section 


=>  imp lemen tat ion- in teger-and -fixed-point -compare 
(latest-value  (left-operand-of (unit ) ) , "with" 
attributes  ( lef t-operand-of (unit ) ) , latest-value 
( right-operand-of (unit ) ) , "with"  attributes 
(right-operand-of (unit ) ) ) #OTHERWISE  #. 


#DF  lef t-operand-of  (rel) 

"{rel  #IS  <relation>}" 

= > operandl-of  (rel)  #IF  operand  1 -of ( rel ) #IS-NOT 
<relation> ; 

=>  operand2-of  (operandl-of  (rel))  #OTHERWISE  #. 


itDF  right-operand-of  (rel ) 

"{rel  #IS  <relation>}" 
=>  operand2-of  (rel)  #. 


#DF  variable-value  (unit) 

"{($unit$)  is-a-variable  #AND  unit  #EQ 
current-executable-unit }" 

=>  generalized-latest-value  ( 

standard-reference-address-of (unit ) ) #. 


#DF  constant-value  (unit) 

"{  ($unit$)  is-a-constant  ^i^AND  unit  //EQ 

current-executable-unit  }" 

=>  floating-constant-value  (unit)  #IF  unit  #IS 
<f loa ting-con st ant > ; 

= > fixed-constant-value  (unit)  #IF  unit  //IS 
<f ixed -const ant > ; 

= > integer-constant-value  (unit)  #IF  unit  //IS 
<integer-constant>; 

= > boolean-constant-value  (unit)  #1F  unit  //IS 
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<boolean-constant> ; 

=>  octal-constant-value  (unit)  #IF  unit  #IS 
<octal-constant> ; 

=>  transmission-code-constant-value  (unit)  #IF  unit  #IS 
<transmis Sion -code -cons tant> ; 

= > hollerith-constant-value  (unit)  #IF  unit  //IS 
<hollerith-constant>; 

= > status-constant-value  (unit)  #IF  unit  //IS 
<status-constant> ; 

=>  zero-constant-value  (unit)  #IF  unit  #IS  <zero>  #. 


//DF  floating-constant-value  (unit) 

"{unit  //IS  <floating-constant>  #AND  unit  //EO 
current -executable-unit } " 

= > implementation-floating-zero  //IF 

integer-port ion-indicated -in-floating-constant 
(unit)=0  #AND 

f raction -por ti on -indicated -in -floating-constant 
(unit)=0; 

=>  ($  \ binary-exponent-for  (unit), 
double -word -representation -of 
( binary-mantissa-f  or(unit))\$) 

converted-to-implementation-f loating-f orm  //OTHERWISE 

//. 


//DF  fixed-constant-value  (unit) 

"{unit  //IS  <fixed-constant>}" 

=>  ($  integer-portion-value  (unit)  #CW 
fractional -port ion -value 

(unit ) $ ) con formed- to-implementation-word -size  #IF 
f ractional-bits-in-result-of  (unit)  >=  0; 

= > implementation -right -arithmetic -shift 
(integer-portion-value  (unit)  ,"by"  #APS 
( f ractional-bits-in-result-of  (unit)))  #IF 
f ractional-bits-in-result-of  (unit)  <C  #. 
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#DF  integer-portion-value  (unit) 

"{unit  //IS  <fixed-constant>  #U  <integer-constant>  #AND 
unit  #EQ  current-executable-unit}" 

=>  ($  fCONVERT  2 (integer-portion-indicated-in 
(unit))$) 

with-result-converted-to-implementation-f  orm  // . 

//DF  integer-portion-indicated-in  (unit) 

"{unit  //IS  <fixed-constant>  #U  <integer-constant>}" 

= > decimal-representation-of  (unit)  #IF  unit  //IS 
<integer-constant> ; 

=>  integer-portion-indicated-in-fixed-constant  (unit) 

#IF  unit  //IS  <f ixed-constant>  #. 

//DF  decimal-representation-of  (unit) 

"{unit  #IS  <integer-constant>}" 

= > ( //STRING-OF-TERMINALS-OF  ( integer-part-of  (unit))  ) 

#CW  zeroes-indicated-by-exponent-of  (unit)  #.  i 

#DF  zeroes-indicated-by-exponent-of  (unit) 

"{unit  //IS  <integer-constant>}" 

r>  ($  #STRING-OF-TERMINALS-OF  ( exponent-part-of  (unit) 

) $)  zeroes  //IF  (tunit.^)  has-an-exponent-part ; 

=>  #NIL  fOTHERWISF  #. 

#DF  has-an-exponent-part  (nx) 

"{nx  #IS  INODE}" 

=>  ITRUE  IIFF  nx  IIS  <exponentiated-f loating-constant> 
lOR  nx  IIS  ICASE  2 lOF  <integer-constant>  I. 
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#DF  zeroes  (num) 

”{0  <=  num}" 

= > #LEFT  num  #CHARACTERS-OF  string-of-zeroes  iflF  num  < = 
#LENGTH  (string-of-zeroes)  ; 

=>  string-of-zeroes  #CW  ($num  - #LENGTH 

(string-of-zeroes)  $)  zeroes  //OTHERWISE  #. 

#DF  string-of-zeroes 

=>  *000000000000000000000000000000000000’  #. 

//DF  ones  (num) 

”{  0 <=  num  }" 

= > #LEFT  num  #CHARACTERS-OF  string-of-ones  //IF  num  < = 
//LENGTH  (string-of-ones)  ; 

= > string-of-ones  //CW  (Ji  num  - #LENGTH  (string-of-ones) 
$)  ones  //OTHERWISE  // . 

//DF  string-of-ones 

=>  *111111111111111111111111111111111111'  #. 

//DF  integer-portion-indicated-in-fixed-constant  (unit) 

"{unit  //IS  <f ixed-constant> } ” 

=>  simple-integer-portion-f rom  (f loating-part-of 
(unit))  #IF  f loating-part-of  (unit)  #IS 
<simple-f loa ting-con Stan t> ; 

=>  exponentiated-integer-portion-f rom  ( f loating-part-of 
(unit))  #IF  f loating-part-of  (unit)  #IS 
<exponentiated-floating-constant>  #. 

//DF  simple-integer-portion-f  rom  (nx) 
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”{nx  #IS  <simple-f loating-constant>  #U 
< exponentiated -floating-constant  > } ” 

=>  #STRING-OF-T£RMINALS-OF  ( integer-part-of  (nx))  #IF 
($nx$)  has-an-integer-part ; 

r>  'O'  fOTHERWISE  #. 


#DF  exponentiated-integer-portion-f rom  (nx) 

"{nx  #IS  <exponentiated-f loating-constant> } " 

=>  (isimple-integer-portion-f rom  (nx),  "by"  #ABS 
(exponent-part-of  (nx))$) 

decimal-integer-right-shifted  #IF  exponent-part-of 
(nx)  <=0; 

=>  simple-integer-portion-f rom  (nx)  #CW 

digits-shif ted-in-f rom-f ractional-part-of  (nx) 
//OTHERWISE  #. 


//DF  digits-shif  ted-in-f  rom-f  ractional-part-of  (nx) 

"(nx  iflS  <exponentiated-f loating-constant>  #AND 
exponent-part-of  (nx)  > 0}" 

=>  #LEFT  exponent-part-of  (nx)  #CHARACTERS-0F 
( simple-f ractional-portion-f rom  (nx)  #CW 
( $exponent-part-of  (nx)$)  zeroes)  #. 


#DF  simple-f ractional-portion-f rom  (nx) 

"{nx  #IS  <simple-f loating-constant  > #U 
<exponentiated-floating-constant>}" 

=>  #STRING-0F-TERMINALS-0F  ( fraction-part-of  (nx)) 
($nx$)  has-a-f raction-part ; 

: =>  'O’  ^OTHERWISE  #. 


//DF  decimal-integer-right-shifted  (num,  "by"  count) 

"{num  #IS-IN  #NAT-N0S  //AND  count  #IS-IN  #NAT-N0S}" 
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=>  'O'  #IF  count  >=  #LENGTH  (num); 

=>  #LEFT  ( #LENGTH  (num)  - count)  #CHARACTERS-OF  num 
//OTHERWISE  #. 


#DF  f raction-part-of  (nx) 

”{nx  #IS  <simple-f loating-constant>  #U 
<exponential-f loating-constant>  #AND  ($nx$) 
has -a -fraction -part } ” 

=>  fraction-part-of  (simple-f loating-constant-part-of 
(nx))  #IF  nx  #IS  <exponentiated-f loating-constant> ; 

= > #SEG  3 #0F  nx  #IF  nx  #IS  #CASE  2 //OF 
<simple-f loating-constant>  ; 

= > #SEG  2 #0F  nx  //IF  nx  //IS  //CASE  3 #0F 
<simple-floating-constant>  #. 


//DF  fractional-portion-value  (unit) 

"{unit  //IS  <f ixed-constant>  #AND  unit  //EO 
current-executable-unit } " 

=>  fractional -binary-represen tat ion -of 

(fraction -portion -indicated -in-fixed -constant 
(unit),  "to"  f ractional-bits-in-result-of  (unit) 
"binary-digits")  #. 


//DF  fraction-portion-indicated-in-fixed-constant  (nx) 

"(nx  #IS  <fixed-constant>}" 

=>  simple-f ractional-portion-from  ( f loating-part-of 
(nx))  #IF  f loating-part-of  (nx)  //IS 
<simple-f loating-constant> ; 

=>  exponentiated-f ractional-portion-from 

( f loating-part-of  (nx))  #IF  f loating-part-of  (nx) 
//IS  <exp on entiated -floating-constant > #• 


//DF  exponentiated-f ractional-portion-f rom  (nx) 
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"{nx  #IS  <exponentiated-f loating-constant> } ” 

=>  ($  simple-f ractional-portion-f rom  (nx),  "by” 

exponent-part-of  (nx) $ ) decimal -fraction-left -shifted 
#IF  exponent-part-of  (nx)  >=0; 

=>  digits-shifted-in-from-integer-part-of  (nx)  #CW 
simple-f ractional-portion-f rom  (nx)  fOTHERWISE  #. 

#DF  decimal-fraction-left-shifted  (nura,  "by"  count) 

"{num  #IS-IN  #NAT-N0S  #AND  count  //IS-IN  #NAT-N0S}" 

=>  *0'  #IF  count  >=  #LENGTH  (num); 

= > #RIGHT  ( (/LENGTH  (num)  - count)  #CHARACTEPS-0F  num 
//OTHERWISE  //. 

//DF  digits-shif ted-in-f rom-integer-part-of  (nx) 

"{nx  //IS  <exponentiated-f loating-constant>  #AND 
exponent-part-of  (nx)  < 0}" 

=>  #RIGHT  #ABS  (exponent-part-of  (nx))  #CHARACTERS-OF 
(($  #ABS(exponent-part-of  (nx))$)  zeroes  //CW 
simple-integer-portion-f rom(nx ) ) #. 

//DF  integer-constant-value  (unit) 

"{unit  //IS  <integer-constant>}" 

=>  integer-portion-value  (unit)  #. 

//DF  boolean-constant-value  (unit) 

"{unit  #13  <boolean-constant > } " 

=>  #STRING-0F-TERMINALS-0F  (unit)  #. 

//DF  octal-constant-value  (unit) 

"{unit  //IS  <octal-constant> } " 
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=>  ($  #C0NVERT  10  (digits-of  (unit))  $) 
converted-to-impleinentation-f orm  # . 


#DF  transmission-code-constant-value  (unit) 

"{unit  iHS  <transmission-code-constant>  #AND  unit  /fEO 
cu rrent-execu table-uni t } " 

=>  transmission-code-value-f or  ( 

#STRING-OF-TERMINALS-OF  ( t ran emission -cod e-text-of 
(unit)))  #. 


//DF  transmission-code-text-of  (unit) 

"{  unit  #IS  <transmission-code-constant>  #AND  unit  #EQ 
current-executable-unit  }" 

= > #SEG  *0F  unit  #. 


#DF  transmission-code-value-f or  (str) 

"(str  #IS  <sign-string> } " 

=>  #NIL  #IF  #LENGTH  (str)  = 0; 

=>  transmission-code-f or  ( #FIRST-CHAR ACTER-IN  (str)  ) 
#CW  transmission-code-value-for 

(all-but-f irst-character-in  (str))  fOTHERWISE  #. 


#DF  all-but-f irst-character-in  (str) 

"(str  #IS  #STRING}" 

=>  #RIGHT  ( #LENGTH  (str)  - 1)  #CHARACTERS-0F  str  #. 

y^DF  transmission-code-for  (byte) 

"(byte  itlS  <sign>)" 

= > ($ 

six-bit-bina ry -rep resentation-of -transmission-code-for 
(byte)$)  with-f iller-bits-added  #. 
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#DF  six-bit-binary-representation-of-transmission-code-for 
( byte) 

"{byte  #IS  <sign>}" 

=>  #PREFIX-OF-FIRST  *#B2’#IN  ( ^CONVERT  2 (2 
#TH-ELEMENT-IN  ( #FIRST  map-pair  #IN 
transmission-code-map-pair-sequence  #SUCH-THAT  ( 
#FIRST-ELEMENT-IN  map-pair  #EQW  byte))))  #. 


#DF  with-f iller-bits-added  (code) 

"{ ($code$)  is-string-of-ones-and-zeroes } " 

=>  ($bits-per-byte  - #LENGTH  (code)$)  zeroes  #CW  code 

#. 


#DF  transm is si on -code -map -pair-sequence 
= > \ 


\#SPACE 
OTitBQ'  \, 

, '00#B8 

t 

\ 'A' 

, '06#B8 

' 

\ 'B'  , 

1 

\ ' C ' 

12#B8'  \, 

' 10#B8' 

\ 

'D'  , 

' 1 1#B8' 

\ 

'E'  , 

] 

\ 'F*  , 
15#B8’  \, 

' 13#B8' 

\ 

'G'  , 

' 14//B8' 

\ 

'H'  , 

\ , 
20#B8'  \, 

' 16#B8' 

\, 

\ 

'J'  , 

' 17#B8' 

\ 

'K'  , 

1 

\ ' L ' 

26#B8*  \, 

'21#B8' 

\, 

\ 

'M'  , 

'22#B8' 

\ 

'N'  , 

j 

\ 'O’  , 

26#B8'  \, 

'2ll#B8' 

\, 

\ 

•P'  , 

'25#B8' 

\ 

’Q'  , 

f 

i 

\ 'R'  , 
31#B8'  \, 

'27#B8' 

\, 

\ 

’S', 

'30#B8' 

\,  \ 

'T'  , 

1 

1 

1 

\ 'U'  , 

34#B8'  \, 

'32#B8’ 

\, 

\ 

•V  , 

' 33#B8' 

\ 

'W  , 

i 

\ ' X ' 

37#B8'  \, 

'35//B8' 

\, 

\ 

'Y'  , 

•36//B8' 

\ 

'Z'  , 

1 

\ 

42#B8'  \, 

'i<0#B8' 

\, 

\ 

I _ f 

f 

'41#B8' 

\ 

•+' , 

* 

\ ' = ' , 

50#P8'  \, 

\ 

'47#P8' 

\ 

t » 1 

I 

9 

\ , 
60#E8'  \, 

'51#B8' 

\, 

\ 

r f 

'56#B8’ 

\ 

’0’ , 

\ ' 1 ' , 

'61#B8' 

\ 

'2^ 

'62#B8' 

\,  \ 

’3', 
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•63#B8'  \, 

\ 'i*',  '64#B8'  \,  \ *5',  '65#B8*  \,  \ '6', 
'66#B8'  \, 

\ '7',  ’67#B8»  \,  \ *8',  •70#B8*  \,  \ '9', 
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#DF  hollerith-constant-value  (unit) 

"{unit  #IS  <hollerith-constant>  #AND  unit  #EQ 
current-executable-unit } " 

=>  hollerith-value-for  ( #STRING-OF-TERMINALS-OF 
(hollerith-text-of  (unit)))  #. 


#DF  hollerith-text-of (unit ) 

"{  unit  #IS  <hollerith-constant>  #AND  unit  j?EQ 
current-executable-unit  }" 

=>  #SEG  4 #0F  unit 


#DF  hollerith-value-for  (str) 

"(str  #IS  <sign-string>}" 

=>  #NIL  #IF  ^LENGTH  (str)  =0; 

=>  hollerith-for  ( #FIRST-CHARACTER-IN  (str)  ) #CW 
hollerith-value-for  (all-but-first -character -in 
(str))  fOTHERWISE  #. 


#DF  hollerith-for  (byte) 

"(byte  //IS  <sign>}" 

=>  ($six-bit-binary-representation-of -hollerith-for 
(byte)$)  with-f iller-bits-added  #. 


/;DF  six-bit-binary-representation-of-hollerith-for  (byte) 
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"{byte  #IS  <sign>}" 


f 


#DF 


= > #PREFIX-OF-FIRST  •#B2'#IN  ( //CONVERT  2 (2 
#TH-ELEMENT-IN  ( #FIRST  map-pair  #IN 
hollerith-map-pair-sequence  #SUCH-THAT  ( 
#F1RST-ELEMENT-IN  map-pair  #EQW  byte))))  #. 


hollerith-map-pair-sequence 

=>  implementation -standard -hollerith-map-pair-sequence 
#CS  implementation-hollerith-map-pair-sequence  #. 


#DF  status-constant-value  (scon) 

"(scon  #IS  <status-constant>}" 

=>  ($  position-of (scon , "in" 

declaration-pertaining-to(scon)  ) $) 
converted -to-implemen tat ion -form# . 


//DF  position-of  (scon,  "in"  s-decl) 

= > #0RDP0SIT  (//FIRST  stat-con  #IN 

list-of-status-constants-in  (s-decl)  #SUCH-THAT 
( stat-con//EQW  scon))  #IN  list-of-status-constants-in 
( s-decl ) // . 


//DF  list-of-status-constants-in  (s-decl) 

=>  #SEQUENCE-OF  <status-constant > #IN  s-decl  #. 


//DF  declaration-pertaining-to  (scon) 

"{scon  #IS  <status-constant> } " 

=>  receiving-variable -declaration 

(assignment-containing  (scon))  #IF  ($scon$) 
is-assigned -status-constant; 


compared -variable -dec la rat ion 
(status- re lation-containing  (scon)) 
is-comparison-status-constant  #. 


#IF  ( ^ scon$ ) 
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#DF  is-assigned-status-constant  (scon) 

"{scon  #IS  <status.-constant>}" 

=>  #FALSE  #IF  #NOT  ITHERE-EXISTS  start  #IN 

#SEQUENCE-OF-ANCESTORS-OF  (scon)  #SUCH-THAT  (start 
#IS  <assignment-statement> ) ; 

=>  scon  #EQ  status-constant-of 

(rhs(assignment-containing(scon) ) ) #IF 
( $assignment -containing (scon ) $ ) 
is-atomic-assignraent ; 

=>  #FALSE  fOTHERWISE  #. 

#DF  Is-atomlc-assignraent (stmt ) 

"(stmt  #IS  <assignment-statement>} " 

=>  #TRUE  #IFF  stmt  IIS  ICASE  3 lOF 
<assignment-statement># . 

IDF  assignment-containing  (scon) 

"{scon  IIS  <status-constant>}" 

=>  ILAST  stmt  IIN  (ISEQUENCE-OF-ANCESTORS-OF  scon) 
ISUCH-THAT  (stmt  IIS  <assignment-statement > ) I. 

IDF  rhs  (stmt) 

"(stmt  IIS  <assignment-statement>}" 

=>  ISEG  5 lOF  stmt  I. 

IDF  status-constant-of  (atom-form) 

"{atom-form  IIS  <atomic-f ormula> } " 

=>  ISEG  1 IGF  atom-form  I. 

IDF  receivine-variable-declaration  (stmt) 

==================r ====  eval-l67  =======z=======r ===== 


1 


r 
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"{stmt  #IS  <assignment-statement>}" 

=>  declaration-for  (operandl-of  (stmt))  #. 

#DF  status-relation-containing  (scon) 

"{ ($scon$)  is-comparison-status-constant } " 

=>  #PARENT-N0DE  (scon)  #. 

#DF  is-comparison-status-constant  (scon) 

"(scon  #IS  <status-constant>}" 

=>  #PARENT-N0DE  (scon)  #1S  <status-relation>  #. 

#DF  compared-variable-declaration  (srel) 

"(srel  #IS  <status-relation>} " 

=>  declaration-for  (operandl-of  (srel))  #. 

#DF  zero-constant-value  (unit) 

"(unit  #IS  <zero>}" 

=>  »0'  #. 

#DF  floating-latest-value  (operand) 

”{( lope rand $ ) is-operation-or-primitive-operand } " 

=>  latest-value  (operand)  #IF  type  (operand)  #EQW 
' floating ' ; 

=>  (I  latest-value  (operand),  "with"  attributes 

(operand)  $)  converted-f ixed-to-f loating  #IF  type 
(operand)  #EQW  'fixed*; 

=>  ($  latest-value  (operand),  "with"  attributes 

(operand)  |)  converted-integer-to-f loating  #IF  type 
(operand)  #EQW  'integer*  #. 


• 1 
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#DF  converted-integer-to-f loating  (val,  "with"  attr) 

"{  ($val$)  is-implementation-numeric-representation 
#AND  ($attr$)  is-attribute } " 

=>  ($($\($bits-in-floating-mantissa  - 1$) 
c on vert ed-to-implementat ion -form , 

double-word-representation-of ( val ) \ $)  normalized 

$)  converted-to-implementation-f  loating-form  . 


#DF  converted-fixed -to-floating (val , "with"attr ) 

" { ( $val$ ) is-implementation-numeric-representation  #AND 
( $attr$) is-attribute}" 

=>  ($  ($  \ ($  bits-per-word  - 1 - 
f raction-bits-f rom (attr ) $ ) 
converted-to-implementation-f orm , 

double-word-representation-of (val ) \ $)  normalized 
$)  converted-to-implementation-f loating-f orm  #. 


#DF  converted-f loating-to-integer  (val) 

" { ( $val$ ) is- implementation-numeric-rep resen tat ion } " 

=>  #LEFT  bits-per-word  #CHARACTERS-OF 
implementation-left-arithmetic-shift 
( f loa ting-man tissa-f rom (ex tended -precis ion -f  orm-of 
(val)),  "by"  ($f loating-exponent-f rom 

(extended-precision-form-of ( val ))$)converted-to-standard-form 
- bits-in-f loating-mantissa  + 1)  #. 


#DF  converted-f ixed-to-integer  (val,  "with"  attr) 

"{  ($val$)  is-implementation-numeric-representation 
#AND  ($attr$)  are-attribute}" 

=>  implementation-integer-zero  #IF 
integer-bits-from(attr ) <=  0 ; 

=>  implementation-left-arithmetic-shift  (val, "by"  #NEG 
fraction-bits-from(attr) ) #OTHERWISE  #. 


eval- 169 


Page  type-170 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 
Type 


#DF  type  (unit) 

"{ ($unit$)  is-operation-or-primitive-operand}” 

=>  numeric-binary-op-type  (unit)  #IF  ($unit$) 
is-numeric-binary-operation ; 

=>  numeric-unary-op-type  (unit)  #IF($unit$) 
is-numeric-unary-operation ; 

=>  function-type  (unit)  #IF  ($unit$) 
is-function-reference ; 

=>  'boolean'  #IF  ($unit$)  is-boolean-operation  #0R 
( $unit$ ) is-relational -operation ; 

= > variable-type  (unit)  #IF  ($unit$)  is-a-variable ; 

=>  constant-type  (unit)  #IF  ($unit$)  is-a-constant  if. 


#DF  numeric-binary-op-type  (operation) 

” { ($operation$)  is-numeric-binary-operation}" 

=>  'integer'  #IF  ($operation$)  is-special-index-sum ; 

=>  'floating'  #IF  either-operand-is-f loat-in 
(operation)  #0R  ( $operation$ ) 
is-to-be-done-in-f loating-form  ; 

=>  'fixed'  #IF  either-operand-is-f ixed-in  (operation) 
#0R  operation  #IS  <quotient>; 

=>  'integer*  fOTHERWISE  #. 

"For  any  fixed  base  and  an  integer  0 exponent  JOCIT 
defines  the  type  of  the  result  to  be  integer,  we  shall 
accept  AFM100-24  definition  of  the  result,  which  is 
fixed." 


#DF  numeric-unary-op-type  (operation) 

" { ($operation$)  is-numeric-unary-operation}" 


type- 170 


Page  type-171 


Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


=>  type  ( operand 1-of (operation ) ) #IF  operation  #IS 
<abs-function>  #U  <unary-minus>  #U  <unary-plus> ; 

=>  'integer*  #IF  operation  #IS  <nwdsen-function>  #U 
<loc-function>  #. 


#DF  function-type  (fx) 

" { ($fx$)  i s-funct ion-re f erence } " 

=>  declaration-type  ( function-item-declaration-f or 
(declaration -for  ( function -name- in -ref erence 
(fx))))#. 


#DF  function-name-in -reference ( f x ) 
"{fx  #IS  <function-call> } " 

=>  #SEG  1 #0F  (#SEG  1 #0F  fx)  #. 


#DF  function-item-declaration-for  (fdec) 

"f  fdec  #IS  <procedure-declaration>  #U 
< subprogram-dec la rat ion > } " 

=>  IFIRST  item-dec  #IN  potential-item-decs-f or ( fdec ) 
#SUCH-THAT  (name-declared-in ( fdec ) #E0W 
name-declared-in  (item-dec))#. 


#DF  potential-item-decs-f or  (fdec) 

"{  fdec  #IS  <procedure-declaration>  #U 

<subprogram-declaration>} " 

=>  #SEQUENCE-OF  <simple-item-declaration>  #IN 

optional-template-declarations-of  (fdec)  #IF  fdec 
#IS  <subprogram-declaration> ; 

=>  #SEQU£NCE-OF  <simple-item-declaration>  #IN 

optional-decl-list-of  ( procedure-head-of ( fdec  ) ) #CS 
#SEQUENCE-OF  <simple-item-declaration>  #IN 
procedure-body-of  (fdec)  #OTHERWISE  #. 
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#DF  optional-template-declarations-of  (spdec) 

"{spdec  #IS  <subprogram-declaration>}" 

=>  #SEG  6 #0F  spdec  #. 

#DF  procedure-head-of (pdec ) 

”{  pdec  #IS  <procedure-declaration>}'' 

=>  #SEG  1 #0F  pdec  #. 

#DF  optional-decl-list-of  (phead) 

"{phead  #IS  <procedure-head> } " 

=>  #SEG  8 #0F  phead  #. 

#DF  procedure-body-of  (pdec) 

'•{pdec  #IS  <procedure-deGlaration>}" 

=>  #SEG  3 #0F  pdec  #. 

#DF  variable-type  (operand) 

"{  ($operand$)  is-variable  }" 

=>  special-variable-type-of  (operand)  #IF  ($  operand  $) 
is-a-special-variable  ; 

=>  declaration-type  (declaration-f or  (operand)  ) 
#0THERWISE  #. 

#DF  is-a-special-variable  (var) 

"{($var$)  is-a-variable ) " 

=>  #TRUE  #IFF  var  #IS  <special-integer-var iabl e>  #U 
<special-f ixed-variable>  #U 
<special-literal-variable>  #U 
<special-boolean-variable>  #. 

=======================  type-172  ======================= 


Page  type- 172 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


Page  type-173 


07/12/77 

Specification  of  J0VIAL(J3)  SEMANOL  Project 

Semantic  Definitions  Section  Type 


#DF  special-variable-type-of  (operand) 

" { ( $oper and $) is-a-special -variable  } " 

=>  'integer'  #IF  operand  #IS 
<special-integer-variable>; 

=>  'fixed'  #IF  operand  #IS  <special-f ixed-variable> ; 

=>  'boolean'  #IF  operand  #IS 
<special-boolean-variable> ; 

=>  type  (object-variable-of (operand ) ) #IF  operand  #IS 
<special-literal-variable>  #. 


#DF  object-variable-of  (operand) 

"{  operand  #IS  <special-literal-variable>  #U 
<special-f ixed-variable>  #U  <special-boolean-variable> 
#0R  ($operand$)  is-bit-functional-modif ier  #0R 
($operand$)  is-char-functional-modif ier  }" 

=>  #FIRST  nx  #IN  ( #SE0UENCE-0F-N0DES-IN  subject-of 
(operand))  #SUCH-THAT  ( ($nx$)  is-a-variable ) 


#DF  subject-of  (operand) 

=>  #SEG  11  #0F  operand  #IF  operand  #IS 

<special-literal-variable>  #0R  ($operand$) 
is-bit-functiona 1-mod  if ier ; 

=>  #SEG  5 #0F  operand  #IF  operand  #IS 
<special-boolean-variable>  #U 
<special-f ixed-variable>  #0R  ($operand$) 
is-char-functional-modif ier  #. 


//DF  declaration-type  (decl) 

"{ ($decl$)  is-typed-data-declaration  } " 

=>  type-implied-by  ( typed-item-description-of  (decl)) 

# . 
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#i/F  typed-item-description-of  (decl) 

” { ( $decl$ ) is-typed-data-declaration } " 

=>  type-specif ier-of  ( item-description-of  (decl))  #. 

#DF  item-description-of  (decl) 

”{ ($decl$)  is-typed-data-declaration}" 

r>  #SEG  7 #0F  decl  #IF  decl  #IS  <array-declaration>  ; 

=>  #SEG  3 #0F  decl  #IF  decl  #IS  <mod6-directive> ; 

=>  #SEG  5 #0F  decl  #IF  decl  #IS 

<simple-item-declaration>  #U 
<ordinary-table-item-declaration>  #U 
<string-item-declaration>  #U 
<def  ined -entry- item-dec  lar  at  ion  > if . 

#DF  type-implied-by  (desc) 

"{($  desc  $)is-typed-item-description}" 

=>  'integer'  #IF  desc  #IS  <integer-item-description> ; 

=>  'fixed'  #IF  desc  #IS  <f ixed-item-description> ; 

=>  'floating'  #IF  desc  #1S  <f loating-item-description> ; 

=>  'hollerith'  #IF  desc  #IS 

<hol lerith- item-descript ion > ; 

=>  'status'  #IF  desc  #IS  <status-item-description> ; 

=>  'boolean'  #IF  desc  #IS  <boolean-item-description> ; 

=>  'transmission-code'  #IF  desc  #IS 

<transmission-code-item-description>  P . 

#DF  constant-type  (const) 

"{($const$)  is-constant } " 

=>  'integer'  #IF  const  PIS  <integer-constant> ; 

========z==============  type-174  ====r==r=======r=r ==rr= 
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=>  'fixed'  #IF  const  iHS  <fixed-constant> ; 

=>  'floatine'  #IF  const  #IS  <f loating-constant> ; 

=>  'hollerith'  #IF  const  #IS  <hollerith-constant> ; 

=>  'status'  #IF  const  #IS  <status-constant> ; 

= > 'boolean'  #IF  const  //IS  <boolean-constant> ; 

= > 'transmission-code'  #IF  const  //IS 
<transmission-code-constant> ; 

= > 'octal'  #IF  const  itlS  <octal-constant> ; 

= > 'zero-type'  //IF  const  //IS  <zero>  it. 

//DF  either-operand-is-f loat-in  (operation) 

" { ( $operation$ ) is-numeric -binary-operation } " 

= > #TRUE  #IFF  type  (operand  1-of (operation ) ) #EQW 

'floating'  #0R  type  (operand2-of (operation) ) #EQW 
'floating'  #. 

//DF  is-to-be-done-in-f loating-form  (operation) 

=>  #FALSE  #IF  operation  #IS-N0T  <exponential>  ; 

=>  #TRUE  #IF  type  (onerandl-of  (operation))  #E0W 
' floating' ; 

= > //TRUE  #IF  operand2-of  (operation)  #IS-N0T 
<integer-constant>; 

= > #TRUE  //IF  ($operation$) 

resu 1 1 -wou Id -be -too-large-un floated  ; 

=>  #FALSE  lOTHERWlSE  # . 

* • 1 t-would-be-too-large-unf loated  (operation) 

" operation  IIS  <exponential>  #AND  type  (operandl-of 
li-ratlon))  INEQW  'floating'  lAND  operand  2-of 


: ? X 2 
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(operation)  #IS  <integer-constant>} " 

= > #TRUE  #IFF  size-of-result-of  ( operand  1 -of 
(operation))  • ($  latest-value  (operand2-of 
(operation)  )$)  converted-to-standard-form 
> =bits-per-word  #. 


#DF  either-operand-is-f ixed-in  (operation) 

" { ( $operation$ ) is -numeric -binary -operation } " 

= > #TRUE  #IFF  type  ( operand  1 -of (operation ) ) #EQW 
'fixed*  #0R  type  (operand2-of (operation) ) #E0W 
'fixed'  #. 

#DF  both-operands-are-inteeer-in  (operation) 

"{(Joperation^)  is -numeric -binary-operation } " 

=>  #TRUE  #IFF  type  (operand 1-of (operation ) ) #EQW 

'integer'  #AND  type  ( operand2-of (operation ) ) #E0W 
'integer'  #. 

#DF  both-operands-are-f ixed-in  (operation) 

"{($operation$)  is-numeric-binary-operation } " 


= > #TRUE  #IFF  type  (operand 1-of (operation) ) #EQW 
'fixed'  #AND  type  (operand2-of (operation) ) #EQW 
'fixed'  #. 


//DF  has -one -fixed -and -one-integer-operand (operation ) 

"{($operation$)  is-numeric-binary-operation}" 

= > #TRUE  #IF  type  (operand 1-of (operation ) ) #EQW 

'integer'  //AND  type  (operand2-of  (operation ) ) #E0W 
'fixed'  ; 

= > #TRUE  //IF  type  (operand  1-of  (operation) ) #EQW  'fixed' 
#AND  type  (operand2~of (operation) ) #E0W  'integer'  ; 

= > #FALSE  //OTHERWISE  if. 
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//DF  integer-operand-of  (operation) 

" { ( $operation4 ) is-binary-numeric-operation  #AND 
eitber-operand-is-integer-in  (operation )} ” 

=>  operand 1-of (operation ) #IF  type 

(operand 1-of (operation) ) #EQW  'integer'; 

= > operand2-of (operation ) #IF  type 

(operand2-of  (operation ) ) #EQW  'integer'  . 


#DF  f ixed-point-operand-of  (unit) 

"{($unit$)  is-binary-numeric-operation  #AND 
either-operand-is-f ixed-in  (unit ) } " 

= > operand  1-of  (unit ) #IF  type  ( operand  1-of  (unit ) ) //EQW 
' fixed ' ; 

= > operand2-of (unit)  #IF  type  (operand2-of (unit) ) #EQW 
'fixed'  #. 
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#DF  attributes  (operand) 

” { ($operand$)  is-operation-or-primitive-operand } ” 

=>  \ integer-bits-in-result-of  (operand), 
f ractional-bits-in-result-of  (operand) , 
minimal-bits-in-result-of  (operand)  \ //. 

#DF  integer-bits-from  (attr) 

=>  #FIRST-ELEMENT-IN  attr  #. 

#DF  fraction-bits-f rom  (attr) 

=>  2 #TH-ELEMENT-IN  attr  #. 

#DF  minimal-bits-from  (attr) 

=>  3 #TH-ELEMENT-IN  attr  #. 

#DF  integer-bits-in-result-of  (unit) 

"{  ($unit$)  is-operation-or-primitive-operand  #AND  type 
(unit)  #IS-IN  \ 'fixed',  'integer'  \ }" 

=>  minimum  (unadjusted-integer-bits  (unit), 

bits-per-word  - 1 - fractional-bits-in-result-of 
(unit))  #. 

#DF  maximum  (x,y) 

"{  X iitlS  ^INTEGER  itkUD  y #IS  #INTEGER  }" 

=>  X #IF  X >=y  ; 

=>  y ^OTHERWISE  #. 

#DF  minimum  (x,y) 

"f  x #IS  ^INTEGER  #AND  y #IS  ^INTEGER  }" 
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= > X iHF  X <=y  ; 

= > y //OTHERWISE  #. 


#DF  unadjusted-integer-bits  (unit) 

”{  ($uniti)  is-operation-or-primitive-operand  /fAND  type 

(unit)  #IS-IN\  ’fixed*,  'integer'N  }" 

=>  integer-bits-for-binary-op  (unit)  #IF  (iuniti) 
is-numeric-binary-operation ; 

=>  integer-bits-for-unary-op  (unit)  #IF  ($unit$) 
is -numeric -unary -ope rat ion ; 

=>  integer-bits-for-variable  (unit)  #IF  ($unit$) 
is-a-variable ; 

=>  integer-bits-for-constant  (unit)  #IF  ($unit$) 
is-a-constant ; 

=>  integer-bits-for-function  (unit)  #IF  ($unit$) 
is-function-ref erence  #. 


//DF  integer-bits-for-binary-op  (unit) 

"{  ($unit$)  is-numeric-binary-operation  #AND  type 

(unit)  #IS-IN  \ 'fixed',  'integer'  \ }" 

= > 1 + maximum  (integer-bits-in-result-of  (operand  1-of 
(unit)),  Integer-bits-in-result-of  (operand2-of 
(unit)))  #IF  unit  #IS  <sum>  <dif ference> ; 

=>  inteeer-bits-in-result-of  (operandl-of  (unit))  + 
integer-bits-in-result-of  (operand2-of  (unit))  #IF 
unit  #IS  <product>; 

=>  integer-bits-for-quotient  (unit)  #IF  unit  #IS 
<quotient>; 

=>  integer-bits-for-exponential  (unit)  #IF  unit  #IS 
<exponential>  . 


f/DF  integer-bits-for-quotient  (unit) 


attr-179 


VP 


Page  attr-l80 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 
Attributes 


”{  unit  #IS  <quotient>  #AND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \}" 

=>  integer-bits-in-result-of  (operandl-of  (unit))  + 1 - 
minimal-bits-in-result-of  (operand2-of  (unit))  #IF 
both-operands-are-integer-in  (unit) ; 

=>  integer-bits-in-result-of  (operandl-of  (unit))  + 
f ractional-bits-in-result-of  (operand2-of  (unit))  + 

1 - minimal-bits-in-result-of  (operand2-of  (unit)) 
01F  either-operand-is-f ixed-in  (unit)  #. 


#DF  integer-bits-for-exponential  (unit) 

" { unit  #IS  <exponential>  #AND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \ }" 

=>  (lvalue  (operand2-of  (unit))$) 
converted-to-standard-forro  • 

integer-bits-in-result-of  (operandl-of  (unit))  #IF 
(lvalue  (operand2-of  (unit))l) 
converted-to-standard-form  > 0 ; 

= > 1 //OTHERWISE  #. 


#DF  integer-bits-f or-unary-op  (unit) 

" { (|unit|)  is-numeric-unary-operation  #AND  type  (unit) 

//IS-IN  \ 'fixed',  'integer'  \ 1" 

=>  integer-bits-in-result-of  (operandl-of  (unit))  #IF 
unit  //IS  <abs-function>  //U  <unary-minus>  #U 
<unary-plus> ; 

= > nwdsen-constant-size  (unit)  #IF  unit  //IS 
<nwdsen-function> ; 

= > implementation-location-value-size  #IF  unit  //IS 
<loc-function>  //. 


//DF  nwdsen-constant-size  (unit) 

"{unit  //IS  <nwdsen-funotion> } " 
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= > #LENGTH  ( #PREFIX-OF-FIRST  '#82'  #IN  (//CONVERT  2 
(number-of-words-per-entry-in  (declaration -for 
(tabular-name-of (unit ) ) ) ) ) ) #. 

//DF  tabular-name-of  (nfune) 

"{nfune  #IS  <nwdsen-function> } ” 

=>  #SEG  5 #0F  nfune  #. 


#DF  integer-bits-for-variable  (unit) 

" { ( $unit$ ) is-a-variable  #AND  type(unit)  #IS-IN 
N'fixed' , 'integer'X}" 

=>  special-variable-integer-bits  (unit)  #IF  ($unit$) 
i s -a-s pec ial- variable ; 

=>  declaration-integer-bits  ( declaration-for  (unit)) 
//OTHERWISE  #. 


#DF  special-variable-integer-bits (unit) 

"{unit  /US 

<special-fixed-variable> .u<special-integer-variable> } " 

=>  0 #IF  unit  #IS  <special-fixed-variable> ; 

=>  implementation-integer-bits-in-loop-variable  #IF 
( $unit$) is-loop-variable ; 


= > integer-bits-in-bit-functional-modifier (unit ) #IF 
( $unit.t  )is-bit- functional -modifier; 

=>  bits-in-floatine-exponent  - 1 #IF 

( $unit$ ) is-char-functional -modifier ; 

=>  implementation-max-pos-functional-mod if ier-size  #IF 
( $unit$)is-pos-functional -modifier; 

= > nent-size(unit ) />IF  (iunit$) 
is-nent-functional-modif ier  #. 


#DF  is-loop-variable ( var ) 


j 

i 

i 

•1 

\ 


I 
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"{var  #IS  <special-integer-variable>} " 

=>  #TRUE  #IFF  var  #IS  #CASE  1 #0F 
<special-integer-variable># . 

#DF  integer-bits-in-bit-functional-modif ier (unit ) 

" { ($unit$)is-bit-functional-modif ier }” 

= > integer-bits-in-result-of (ob ject-variable-of (unit ) ) 


#DF  is-bit-functional-modif ier (var ) 

=>  #TRUE  #IFF  var  #IS  #CASE  2 #0F 
<special-integer-variable># . 

#DF  is-char-f unctional-modif ier ( var ) 

=>  #TRUE  #IFF  var  #IS  #CASE  3 #0F 
<special-integer-variable># . 

#DF  is-pos-functional-modifier (var) 

= > #TRUE  //IFF  var  #IS  #CASE  #0F 
<special-integer-variable>#. 

//DF  is -nent-functional -modifier (var) 

= > #TRUE  //IFF  var  #IS  //CASE  5 #0F 
<special-integer-variable>// . 

//DF  nent-size  (unit ) 

" { ($unit$ )is-neat-f unctional-modif ier } " 

=>  number-of-bits-in 

(table -size-specified- in (dec la rat ion -for 
( table -name -of  (unit ))))//. 
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#DF  table-name-of (nent-mod ) 

" { ( $nent -mod $)is-nent -functional -modifier}" 
=>  #SEG  1 #0F  (#SEG  5 #0F  nent-mod)#. 


#DF  table-size-specified-in( table -dec) 

"{table-dec  #IS  <ordinary-table-declaration>  #U 
<def ined -entry- table -dec la rat ion > #U 
< like- table -dec larat ion> } " 

=>  #STRING-OF-TERMINALS-OF(#SEG  3 #0F 

(table-size-specification-of(table-dec)))#. 


#DF  table-size-specification-of(table-dec) 

"(table-dec  #IS  <ordinary-table-declaration>  #U 
<def ined -entry- table-declarat ion > #U 
<like-table-declaration>} " 

= > #SEG  5 #0F  table-dec  #IF  table-de,c  #IS 
<ordinary-table-declaration>  #U 
<defined-entry-table-declaration>; 

=>  #SEG  1 #0F 

optional-table-size-specification-of( table-dec ) #IF 
optional-table-size-specif icat ion -of ( table-dec ) 
#NEQW  #NIL; 

=/  table-size-specif icat ion-of(pattern-table-decl -for 
(table-dec))  #1F  table-dec  #IS 
< 1 ike- table-dec larat ion ># . 


#DF  optional-table-size-specification-of( table -dec) 
"(table-dec  IIS  <like-table-declaration>}" 

=>  ISEG  5 #0F  table-dec  #. 


IDF  declaration-integer-bitsCdecl) 


"{ ($decl$)  is- typed -data -dec la rat ion } " 


[ 

I 

I 
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=>  integer-bits-for-f ixed-decl  (decl)  #IF 
declaration-type  (decl)  #E0W  ’fixed'; 

=>  integer-bits-for-integer-decl  (decl)  #IF 
declaration-type  (decl)  #E0W  'integer'  #. 


//DF  integer-bits-for-integer-decl  (decl) 

"{declaration-type  (decl)  #EQW  'integer'}" 

=>  integer-bits-for-unsigned-integer-decl  (decl)  #IF 
( $decl$ ) is-unsigned -declaration ; 

=>  integer-bits-for-signed-integer-decl  (decl) 
tfOTHERWISE//. 


#DF  integer-bits-for-unsigned-integer-decl  (decl) 

"< declaration-type  (decl)  #EQW  'integer'  #AND  ($decl$) 
is-unsigned-declaration } " 

=>  integer-bits-from-integer-item-description 
( typed-item-description-of (decl ) )# . 

//DF  integer-bits-f or-signed-integer-decl  (decl) 

"{  declaration-type  (decl)  #E0W  'integer'  #AND  (//NOT 
(^!decl$)  is-unsigned-declaration) }" 

= > integer-bits-f rom- in tecrer- item-description 
(typed-item-description-of  (decl))  - 1 #. 


//DF  integer-bits-f rom-integer-item-description  (iid)  ■ 

i 

"(iid  ilfIS  <integer-item-description> } " | 

i 

=>  minimum  (integer-bits-from-integer-specifier-of  I 

(iid),  "and"  integer-bits-f rom-value-range-of  (iid)) 

//IF  ($iid$)  has-a-value-range ; * 

=>  integer-bits-from-integer-specif ier-of  (iid) 
fOTHERWISE  #. 
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#DF  has-a-value-range  (item-desc) 

"{item-desc  #IS  <integer-itein-description> 

.u<f ixed- item-desc ription> } " 

= > #TRUE  ilfIFF  optional-value-range-of  (item-desc)  #NEQW 
#NIL  #. 


#DF  optional-value-range-of  (item-desc) 

"{item-desc  #IS  <integer-item-description> 
. u<f ixed-item-description> } " 

=>  #SEG  3 #0F  item-desc  #. 


#DF  integer-bits-f rom-value-range-of  (item-desc) 

"(item-desc  #IS  <integer-item-description>  #U 
I <fixed-item-description>}" 

=>integer-bits-in-result-of  (range-high-value 
(optional-value-range-of  (item-desc))) 


#DF  range-high-value  (vrange) 

"(vrange  #IS  <optional-integer-value-range>  + ge>  #U 
<optional-f ixed-value-range>  #AND  vrange  #NEQW  //NIL}" 

=>  #SEG  6 #0F  vrange  #IF  vrange  #IS 
< optional -integer-value -range > ; 

= . #SEG  1 //OF  (//SEG  6 #0F  vrange)  ilfOTHERWISE  #. 


//DF  integer-bits-f rom-integer-specifier-of  (iid) 

"{iid  //IS  <integer-item-description> } " 

=>  specif ied-size-of  ( integer-specif ier-of  (iid))  #. 


//DF  inteeer-specif ier-of  (iid) 

"(iid  //IS  <inteeer-item-description>} " 
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=>  #SEG  1 #0F  iid  #. 

#DF  specif ied-size-of  (spec) 

”{  spec  #IS  <integer-specif  ier>  #[J  <f  ixed-specif  ier> } " 

=>  #STRING-OF-TERMINALS-OF  (size-specifier-of  (spec)) 

#. 

#DF  size-specifier-of  (spec) 

•'{spec  #IS  <integer-specif ier>  #U  <fixed-specifier>}" 
=>  #SEG  3 #0F  spec  #. 

#DF  integer-bits-for-f ixed-decl  (decl) 

"{declaration-type  (decl)  #EQW  'fixed'}" 

->  integer-bits-for-unsigned-fixed-decl  (decl)  #IF 
( $decl$)  is -unsigned -declaration ; 

=>  integer-bits-for-signed-f ixed-decl  (decl) 
#OTHERWISE#. 

#DF  integer-bits-for-unsigned-f ixed-decl  (decl) 

" {declaration-type(decl)  <(E0W  'fixed'  #AND  ($decl$) 
is-unsigned-declaration) " 

=>  integer-bits-from- fixed -item-description 
( typed -item-descript ion -of (decl ) ) # . 

#DF  integer-bits-for-signed-fixed -decl (decl) 

"{declaration-type(decl)  #EQW  'fixed'  //(AND(#NOT 
( idecl$)  is-unsigned-declaration } " 


i =>  integer-bits-f rom-f ixed-item-description 

( ( typed-item-description-of (decl ) ) - 1 #. 
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"{fid  #IS  <f ixed-item-description> } " 

=>  minimum ( integer-bits-from-fixed-specifier-of( fid ) , 
"and"  integer-bits-from-value-range-of ( f id ) ) #IF 
( $f id $) has -a- value -range ; 

=>  integer-bits-from-f ixed-specif ier-of  (fid) 
#OTHERWISE  #. 

//DF  integer-bits-from-fixed-specif ier-of  (fid) 

"{  fid  #IS  <f ixed-item-description> } " 

=>  specif ied-size-of  ( f ixed-specif ier-of  (fid))  - 
specif ied-fr act ion-bit s-of  (fixed-specifier-of 
(fid))  #. 

#DF  fixed-specifier-of  (fid) 

"{fid  #IS  <f ixed-item-descriDtion> } " 

= > #SEG  1 #0F  fid  it. 

#DF  specif ied-fraction-bits-of  (fix-spec) 

"{fix-spec  #IS  <f ixed-specif ier> } " 

=>  #STRING-OF-TERMINALS-OF 

( fraction-bits-sign-of( fix-spec ) ) #CW 

#STRING-OF-TERMINALS-OF 

( f raction-bits-count-of ( fix-spec ) ) #. 

#DF  fr^otion-bits-sign-of  (fix-spec) 

"{fix-spec  #IS  <f ixed-specif ier> } " 

=>  #SEG  7 #0F  fix-spec  #. 

//DF  f raction-bits-count-of  (fix-spec) 

"{fix-spec  IIS  <f ixed-specif ier> } " 


attr-187 


Page  attr-188 


Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 
Attributes 


=>  #SEG  8 #0F  fix-spec  #. 


#DF  integer-bits-f or-constant  (unit) 

"{  unit  #IS  <integer-constant>  #U  <f ixed-constant>  }" 

=>  1 - fractional-bits-f or-constant  (unit)  #IF 
integer-bi ts-counted-in-constant  (unit)  + 
fractional -bits-for-constant  (unit)  <=  0; 

"since  constant-value  (unit)  is  zero" 

=>  integer-bits-counted-in-constant  (unit)  #0THEPWISE 


/fDF  integer-bits-counted-in-constant  (unit) 

"{  unit  #IS  <f ixed-constant>  //U  <integer-constant>  }" 

=>  number-of-bits-in  (integer-portion-indicated-in 
(unit))  #. 


#DF  nun^ er-of-bits-in  (val) 

"{  val  #IS-IN  #NATN0S  }" 

= > /^LENGTH  (#PREFIX-OF-FIRST  ’#B2’  #IN  ( ^CONVERT  2 
(val)))  #. 


#DF  integer-bits-for-function  (unit) 

"{  ($unit:^)  is-function-reference  #AND  type  (unit) 
filS-IN  N'fixed’ , *inteeer'\}" 

= > 

declaratiop-integer-bits(function-item-declaration-for 
(declaration- for  (function-name-in-reference 
(unit))))  //. 


#DF  fractional-bits-in-result-of  (unit) 

"{  ($unit$)  is-operation-or-primitive-operand  #AND  type 
(unit)  #IS-IN  \ 'fixed',  'integer'  \ }" 
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=>  minimum  (unadjusted-fractional-bits  (unit),  maximum 
(0,  bits-per-word  - 1 - unadjusted-integer-bits 
(unit)))  #IF  bits-per-word  - 1 >= 

unadjusted-integer-bits  (unit); 

=>  minimum  (unadjusted-fractional-bits  (unit), 

bits-per-word  - 1 - unadjusted-integer-bits  (unit)) 
^OTHERWISE  #. 


y/DF  unadjusted-fractional-bits  (unit) 

”{  ($unit$)  is-operation-or-primitive-operand  #AND  type 
(unit)  #IS-IN  \ 'fixed',  'integer'  \ }" 


=> 

fractional-bits-f or-binary-op 
is-numeric-binary-operation ; 

(unit ) 

#IF 

( $unit$ ) 

=> 

fractional-bits-for-unary-op 
is-numeric-unary-operation ; 

(unit) 

#IF 

( $unit$ ) 

=> 

fractional-bits-for-variable 
is-a-variable ; 

(unit ) 

#IF 

( $unit$ ) 

=> 

f ractional -bits- for-con Stan t 
is-a-constant ; 

(unit ) 

#IF 

( $unit^; ) 

=> 

fractional-bits-for-f unction 
is-function-reference  #. 

(unit ) 

#IF 

( $unit$ ) 

yyDF  fractional-bits-f or-binary-op  (unit) 

"{  ($unit$)  is-numeric-binary-operation  #AND  type 

(unit)  #IS-IN  \ 'fixed',  'integer'  \}" 

=>  fractional-bits-for-sum-or-dif ference  (unit)  #IF 
unit  #IS  <sum>  #U  <dif ference> ; 

=>  fractional-bits-for-product  (unit)  #IF  unit  #IS 
<product> ; 

=>  fractional-bits-for-quotient  (unit)  #IF  unit  #IS 
<quotient> ; 

=>  fractional-bits-for-exponential  (unit)  #IF  unit  #IS 
<exponential>  #. 
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#DF  fractional-bits-for-sum-or-difference  (unit) 

'•{  unit  #IS  <sum>  #U  <difference>  #AND  type  (unit) 

#IS-IN  \ 'fixed',  'integer'  \ }" 

=>  0 #IF  type  (unit)  #EQW  'integer'; 

=>  fractional-bits-in-result-of  (operandl-of  (unit)) 

#IF  fractional-bits-in-result-of  (operandl-of 
(unit))  = fractional-bits-in-result-of  (operand2-of 
(unit) ) ; 

=>  fractional-bits-in-result-of  ( f ixed-point-operand-of 
(unit))  #IF  ($unit$) 

has-one-f ixed-and-one-integer-operand  #AND 
fractional-bits-in-result-of  ( f ixed-point-operand-of 
(unit))  >=0; 

=>  1 + minimum  (fractional-bits-in-result-of 

(operandl-of  (unit)),  fractional-bits-in-result-of 
(operand2-of  (unit)))  lOTHERWISE  #. 

#DF  fractional-bits-for-product  (unit) 

"{  unit  #IS  <product>  #AND  type  (unit)  #IS-IN  \ 

'fixed',  'integer'  \)" 

=>  0 #IF  type  (unit)  #EQW  'integer'; 

=>  fractional-bits-in-result-of  (operandl-of  (unit))  ♦ 
fractional-bits-in-result-of  (operand2-of  (unit))  ♦ 

1 - maximum  (minimal-bits-in-result-of  (operandl-of 
(unit))  , minimal-bits-in-result-of  (operand2-of 
(unit)))  #IF  both-onerands-are-f i xed- in  (unit); 

=>  fractional-bits-in-result-of  ( f ixed-point-ODerand-of 
(unit))  + 1 minimal-bits-in-result-of 
( inteeter-operand-of  (unit))  #IF  (funltf) 
has-one-f  ixed-and-one-inteirer-operand  # . 


#DF  fractional-bits-for-quot ient  (unit) 

"{  unit  IIS  <quotient>  lAND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \ }" 


1 


I 
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=>  bits-per-word  - 1 - inteper-bits-in-result-of 

(operandl-of  (unit))  #IF  inteeer-bits-in-result-of 
(operandl-of  (unit))  + 

preliminary-fractional-bits-for-quotient  (unit)  > 
bits-per-word ; 

=>  preliminary-f ractional-bits-for-quotient  (unit) 
#OTHERWISE  #. 


i 

*DF  preliminary-fractional-bits-for-quotient  (unit)  1 

”{  unit  #IS  <quotient>  #AND  type  (unit)  #IS-IN  \ 

'fixed',  'integer'  \ }"  i 

=>  bits-per-word  - 1 - maximum  (unadjusted-integer-bits  j 

(unit),  minimal-bits-in-result-of  (operandl-of  j 

(unit)))  #IF  both-operands-are-integer-in  (unit);  j 

=>  integer-bits-in-result-of  (operand2-of  (unit))  + i 

f ractional-bits-in-result-of  (operandl-of  (unit))  ' 

#IF  type  (operandl-of  (unit))  #EQW  'fixed';  | 

=>  2 • integer-bits-in-result-of  (oDerand2-of  (unit))  + | 

fractional-bits-in-result-of  (ooerandP-of  (unit))  - ; 

minimal-bits-in-result-of  (operandl-of  (unit))  #IF  ! 

type  (operandl-of  (unit))  #Bbw  'integer' 


#DF  fractional-bits-for-exponential  (unit) 

" { unit  #IS  <exponential>  #AND  type  (unit)  ilS-IN  \ 

'fixed',  'integer'  \ }" 

=>  0 #IF  type  (unit)  #EQW  'integer'  #0R 

#STRING-OF-TERMINALS-OF  (operand2-of  (unit))  = 0; 

=>  #STR1NG-0F-TERMINALS-0F  (operand2-of  (unit))  • 

(fractional-bits-in-result-of  (operandl-of  (unit))  - 
minimal-bits-in-result-of  (operandl-of  (unit))  + 1) 

+ minimal-bits-in-result-of  (operandl-of  (unit))  - 1 
//OTHERWISE  #. 


#DF  fractional-bits-f or-unary-op  (unit) 

"{  ($unit$)  is-numeric-unary-operation  #AND  type  (unit) 

=========z=====r====z==  attr-191  zzzzzzzzzzzzzzzzzzr zzzz 
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#IS-IN  \ ‘fixed’,  ’integer’  \ }" 

=>  fractional-bits-in-result-of  (operandl-of  (unit)) 
#IF  unit  #IS  <abs-function>  #U  <unary-minus>  #U 
<unary-plus> ; 

=>  - #IF  unit  #IS  <nwdsen-function>  #U  <loc-function> 


#DF  fractional-bits-for-variable  (unit) 

’’{($unit$)  is-a-variable  #AND  type  (unit) 

#IS-IN\’fixed’ integer ’ \}" 

=>  special-variable-fractional-bits(unit)  #IF  ($unit$) 
is-a-special-variable ; 

= > 

declare tion-f ractional-bits  (declaration-for (unit ) ) (/OTHERWISE# . 


#DF  special-variable-fractional-bits (unit ) 

’’{unit  #IS  <special-f ixed-variable>  #U 
<special-integer-variable>} " 

=>  0 #IF  unit  #IS  <special-integer-variable> ; 

=>  bits-in-f loating-mantissa  - 1 #IF  unit  #IS 
<spec ial -fixed -variable ># . 


#DF  decl^ration-fractional-bits  (decl) 

" { ( $decl$ ) is-typed-data-declaration } " 

=>  0 #IF  declaration-type  (decl)  #EQW  'integer'; 

=>  fractional-bits-from-fixed -item-descript ion 
(typed-item-description-of (decl ) ) #IF 
declaration-type(decl ) #EQW  'fixed'  #. 


#DF  fractional-bits-f rom-f ixed-item-description  (fid) 
'’{fid  IIS  <fixed-item-description>}" 
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=>  minimum 

( f ractional-bits-from-fixed-specif ier-of ( f id ) , "and" 
f ractional-bits-from-value-range-of (fid ) ) #IF 
($fid$)  has-a-value-range ; 

= > 

fractional-bits-from-fixed-specif  ier-of  ( fid  ) //OTHERWISE 

#. 


#DF  fractional-bits-from-fixed-specif ier-of  (fid) 

"{fid  #IS  <f ixed-item-description>} " 

=>  specif ied-fraction-bits-of  ( fixed-specif ier-of 
(fid))  #. 


//DF  f ractional-bits-from-value-range-of  (fid) 

"(fid  //IS  <f ixed-item-description> } " 

=>  fractional-bits-in-result-of  (range-high-value 
(optional-value-range-of  (fid)))  #. 


//DF  fractional-bits-for-constant  (unit) 

"{  ($unit$)  is-a-constant  #AND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \ }" 

=>  0 #IF  type  (unit)  #EQW  'integer'; 

=>  #STRING-0F-TERMINALS-0F  ( f ixed-constant-exponent-of 
(unit))  #IF  type  (unit)  #EQW  'fixed'  #. 


il/DF  fractional-bits-for-function  (unit) 

"{  ($unit$)  is-function-reference  #AND  type  (unit) 
iiHS-IN  \ 'fixed',  'integer'  \ }" 

=>  declaration-fractional-bits 

( f unction -item-declaration -for  (declaration -for 
( function -name- in -reference (unit ))))//. 


#DF  minimal-bits-in-result-of  (unit) 
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”{  ($unit$)  is-operation-or-primitive-operand  #AND  type 
(unit)  #IS-IN\  ‘fixed*,  'integer'  \ }" 

=>  minimum  (unadjusted-minimal-bits  (unit), 

bits-per-word  - 1)  #IF  unadjusted-minimal-bits 
(unit)  > 0; 

= > 1 //OTHERWISE  #. 


#DF  unadjusted-minimal-bits  (unit) 

"{  ($unit$)  is-operation-or-primitive-operand  #AND  type 
(unit)  #IS-IN  \ 'fixed',  'integer'  \ }" 


=> 

minimal-bits-for-binary-op  (unit ) 
is-numeric-binary-operation ; 

#IF 

( $unit$ ) 

=> 

minimal-bits-for-unary-op 
is -numeric -unary-operation 

(unit) 

#IF 

( $unit$) 

=> 

miniraal-bits-for-variable 
is-a-variable ; 

(unit ) 

#IF 

( $unit$ ) 

= > 

minimal-bits-f or-constant 
is-a-constant ; 

(unit) 

#IF 

($unit$) 

=> 

min Imal-bits-f or-f unction 
is-function-reference  #. 

(unit ) 

#IF 

( $unit$ ) 

#DF  minimal-bits-for-binary-op  (unit) 

"{  ($unit$)  is-numeric-binary-operation  #AND  type 

(unit)  #IS-IN  \ 'fixed',  'integer*  \ }" 

=>  minimal-bits-for-sum-or-dif ference  (unit)  #IF  unit 
#IS  <sum>  #U  <dif ference> ; 

=>  minimal-bits-for-product  (unit)  #IF  unit  #IS 
<product> ; 

=>  minimal-bits-for-quotient  (unit)  #IF  unit  #IS 
<quotient> ; 

= > minimal-bits-for-exponential  (unit)  #IF  unit  //IS 
<exponential>  #. 
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#DF  minimal-bits-for-sum-or-dif ference  (unit) 

"{  unit  #IS  <sum>  #U  <dif ference>  #AND  type  (unit) 

#IS-IN  \ 'fixed',  'integer'  \ }" 

=>  f ractional-bits-in-result-of  (unit)  + maximum 

(minimal-bits-in-result-of  (operandl-of  (unit))  - 
f ractional-bits-in-result-of  (operandl-of  (unit)), 
minimal-bits-in-result-of  (operand2-of  (unit))  - 
f ractional-bits-in-result-of  (operand2-of  (unit))) 
#IF  ($unit$)  is-unsigned; 

=>  1 #0THERWISE  #. 


"Unsigned  variables  and  zero  are  included  in  case  1 of  this 
DF.  AFM  100-24  includes  unsigned  variables  and  zero,  but 
they  are  not  included  in  JOCIT." 


#DF  minimal-bits-for-product  (unit) 

"{  unit  #IS  <product>  #AND  type  (unit)  #IS-IN  \ 

'fixed',  'integer'  \}" 

=>  minimal-bits-in-result-of  (operandl-of  (unit))  + 
minimal-bits-in-result-of  (operand2-of  (unit))  - 1 
#IF  both-operands-are-integer-in  (unit); 

=>  minimum  (minimal-bits-in-result-of  (operandl-of 
(unit)),  minimal-bits-in-result-of  (operand2-of 
(unit)))  #IF  both-operands-are-f ixed-in  (unit); 

=>  minimal-bits-in-result-of  ( f ixed-point-operand-of 
(unit))  fOTHERWISE  #. 


#DF  minimal-bits-f or-quotient  (unit) 

"{  unit  #IS  <quotient>  #AND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \}" 

=>  maximum  ( 1,  minimal-bits-in-result-of  (operandl-of 
(unit))  - minimal-bits-in-result-of  (operand2-of 
(unit)))  #. 
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#DF  minimal-bits-for-exponential  (unit) 

"{  unit  #15  <exponential>  #AND  type  (unit)  #IS-IN  \ 
'fixed',  'integer  #AND  . not  ($unit$) 
is-to-be-done-in-floating-form} " 

=>  #STRING-0F-TERMINALS-0F  (operand2-of  (unit))  * 
miniraal-bits-in-result-of  (operandl-of  (unit))  - 
#STRING-0F-TERMINALS-0F  (operand2-of  (unit))  + 1 #IF 
type  (unit)  #EQW  'integer'; 

=>  minimal-bits-in-result-of  (operandl-of  (unit))  #IF 
type  (unit)  #EQW  'fixed'  #AND 

#STRING-0F-TERMINALS-0F  (operand2-of  (unit))  #NEQ  0; 
r>  1 #0THERWISE  #. 


#DF  minimal-bits-for-unary-op  (unit) 

"{  ($unit$)  is-numeric-unary-operation  #AND  type  (unit) 

#IS-IN  \ 'fixed',  'integer'  \ }" 

=>  miniraal-bits-in-result-of  (operandl-of  (unit))  #IF 
unit  #IS  <abs-function>  #U  <unary-rainus>  #U 
<unary-plus> ; 

=>  imp lemen tat ion-minimal -bit s-in-nwd sen-function 
(unit)  #IF  unit  #IS  <nwdsen-function> ; 

=>  iraplementation-minimal-bits-in-loc-function  (unit) 
#IF  unit  #IS  <loc-function>  #. 


#DF  implementation-minimal-bits-in-nwdsen-function  (unit) 

"{  unit  //IS  <nwdsen-function>  #AND  type  (unit)  #EQW 
'integer'  }" 

= > 1 //. 


#DF  implementation-minimal-bits-in-loc-function  (unit) 

"{  unit  #IS  <loc-function>  #AND  type  (unit)  #EQW 
'integer'  }" 
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= > 1 #. 


#DF  minimal-bits-for-variable  (unit) 

"{  ($unit$)  is-a-variable  #AND  type  (unit)  #IS-IN  \ 
'fixed' , 'integer'N}" 

=>  special-variable-minimal-bits  (unit)  #IF  ($unit$) 
is-a -special -variable ; 

=>  declaration-minimal-bits  (declaration-for  (unit)) 
^OTHERWISE  #. 


#DF  special-variable-minimal-bits  (unit) 

"{  unit  #IS  <special-f ixed-variable>  #U 

<special-integer-variable>} " 

=>  special-variable-fractional-bits  (unit)  #IF  unit  #IS 
<special-f ixed-variable> ; 

=>  1 #IF  ($unit$)  is-loop-variable  #0R  ($unit$) 
is-pos-functional-modifier ; 

=>  minimal-bits-in-bit-functional-modif ier  (unit)  #IF 
( $unit$ ) is-bit-functional-modifier ; 

=>  special-variable-integer-bits  (unit)  #IF  ($unit$) 
is-char-functional-modif ier  ; 

=>  minimal-bits-in-nent-functional-modif ier  (unit)  #IF 
($unit$)  is-nent-functional-modif ier  #. 


#DF  rainimal-bits-in-bit-functional-modif ier  (unit) 

"{  ($unit$)  is-bit-functional-modifier}" 

=>  minimal-bits-in-result-of  (ob ject-variable-of 
(unit))  #. 


I 

I 

I 


#DF  min imal-bits-in-nent -functional-mod if ier 


(unit ) 


"{  ($unit$)  is-nent-functional-mod if ier ) " => 
minimal-nent-size -specified-in  (declaration-for 
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(table-name-of  (unit)))  #.  #DF 

minimal-nent-size-specified-in  (table-dec)  "{  table-dec 
#IS  <ordinary-table-declaration>  #U 
<def ined-entry-table-declaration>  #U 
<like-table-declaration>  }” 

=>  table-size-specified-in  (table-dec)  #IF 
($table-dec$)  is-a-rigid-table  ; 

=>  1 fOTHERWISE  #. 


#DF  is-a-rigid-table  (table-dec) 

”{  table-dec  #IS  <ordinary-table-declaration>  #U 
<def ined -entry- table-declaration>  #U 
<like-table-declaration>  }” 

=>  #TRUE  #IFF  #SEG  1 #0F  table-size-specif ication-of 
(table-dec)  #EQW  'r' 


#DF  declaration-rainimal-bits  (decl) 

"{  ($decl$)  is-typed-data-declaration  #ANB 
declaration-type  (decl)  #IS-IN  \ * fixed integer ' \ }” 

=>  minimal-bits-f rom-item-description 
( typed-item-description-of  (decl))  #. 


minimal-bits-from-item-description  (item-desc) 

”{  item-desc  #IS  <integer-item-description>  #U 
<fixed-item-description>?  + " => 
minimal-bits-f rom-value-range-of  (item-desc)  #IF 
( $item-desc$ ) has-a-value-range ; =>  1 ^OTHERWISE  #. 

#DF  minimal-bits-f rom-value-range-of  (item-desc)  ”{ 
item-desc  #IS  <f ixed-item-description>  #U 
<integer-item-description>  }” 

=>  minimal-bits-in-result-of  (range-low-value 
( optional-value-range-of  (item-desc)))  #. 


#DF  range-low-value  (vrange) 

”{  vrange  #IS  <optional-integer-range-value>  #U 


attr- 1 98 


m 


Page  attr-199 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 
Attributes 


<optional-f ixed-value-range>  #AND  vrange  #NEQW  #NIL}" 

=>  #SEG  2 #0F  vrange  #IF  vrange  #IS 
<optional-integer-value-range> ; 

r>  #SEG  1 #0F  (#SEG  2 #0F  vrange)  #OTHERWISE  #. 


#DF  minimal-bits-for-constant  (unit) 

"{  ($unit$)  is-a-constant  #AND  type  (unit)  #IS-IN  \ 
•fixed’,  'integer*  \ }" 

=>  integer-bits-in-result-of  (unit)  + 

fractional-bits-in-result-of  (unit)  #. 


#DF  minimal-bits-for-function  (unit) 

"{  ($unit$)  is-function-reference  #AND  type  (unit) 
//IS-IN  \ ’fixed’,  ’integer’  \ }" 

=>  declaration-minimal-bits 

( function -item-declaration -for  (declaration -for 
(function-name-in-reference  (unit))))  #. 


#DF  is-unsigned  (unit) 

"{  ($unit$)  is-operation-or-primitive-operand } ’’ 

= > ( #TRUE  #IFF  ($unit$)  is-unsigned-binary-op ) #IF 
( $unit$ ) is -numeric -binary -operation ; 

= > ( #TRUE  #IFF  ($unit$)  is-unsigned-unary-op ) #IF 
( $unit$ ) is-numeric-unary-operation ; 

= > ( //TRUE  //IFF  ($unit$)  is-unsigned-variable ) #IF 
($unit$)  is-a-variable ; 

= > ( #TRUE  //IFF  ($unit$)  is-unsigned-constant ) #IF 
($unit$)  is-a-constant; 

= > ( //TRUE  #IFF  ($unit$) 

is-unsigned-function-reference ) #IF  ($unit$) 
is-function-reference  #. 
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//DF  is-unsigned-binary-op  (unit) 

”{  ($unit$)  is-numeric-binary-operation  #AND  type 
(unit)  #IS-IN  \ ’fixed',  ’integer’  \ }" 

= > #FALSE  #IF  unit  #IS  <dif ference> ; 

=>  #TRUE  #IFF  ($operand 1-of  (unit)$)  is-unsigned  #AND 
( $operand2-of  (unit)$)  is-unsigned  #OTHERWISE  #. 

#DF  is-unsigned-unary-op  (unit) 

"{  ($unit$)  is-numeric-unary-operation  #AND  type  (unit) 
#IS-IN  \ ’fixed',  'integer'  \ }" 

=>  #FALSE  #IF  unit  #IS  <unary-minus> ; 

=>  #TRUE  #IF  unit  #IS  <loc-function>  #U 
<nwdsen-function>  ; 

=>  #TRUE  #IF  ($operand 1-of  (unit)$)  is-unsigned; 

=>  #FALSE  ^OTHERWISE  ». 

#DF  is-unsigned-variable  (unit) 

”{  ($unit$)  is-a-variable  #AND  type  (unit)  #IS-IN 
\ ' fixed integer ’ \ }" 

=>  ($unit$)  is-unsigned-special-variable  #IF  ($unit$) 
is-special -variable; 

=>  ( $declaration-for  (unit)$)  is-unsigned-declaration 
//OTHERWISE  #. 

//DF  is-special-variable  (unit) 

"{  ($unit$)  is-a-variable}" 

= > #TRUE  //IFF  unit  //IS  <special-f ixed-variable>  //U 
<special-integer-variable>  #. 

//DF  is-unsigned-special-variable  (unit) 
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"{  unit  #IS  <special-f ixed-variable>  #U 
<special-integer-variable>}  ” 

=>  #TRUE  #IFF  ($unit$)  is-bit-functional-modif ier  #0R 
($unit$)  is-pos-functional-modif ier  #0R  ($unit$) 
is-nent-functional-modif ier  #. 


#DF  is-unsigned-declaration  (decl) 

"{  declaration-type  (decl)  #IS-IN  \ ' fixed integer ' \ " 

=>  #TRUE  #IFF  signed-unsigned-designator-of 

( type-specif ier-of  ( typed-item-description-of 
(decl)))  #EQW  'u'  #. 

#DF  type-specif ier-of  (item-desc) 

"{  item-desc  #IS  <f ixed-item-description>  #U 
<integer-item-description>  }" 

=>  #SEG  1 #0F  item-desc  #. 

#DF  signed-unsigned-designator-of  (specifier) 

•'{  specifier  #IS  <integer-specif ier>  #U 
<f ixed-specif ier> } " 

=>  #SEG  5 #0F  specifier  #. 

#DF  is-unsigned-constant  (unit) 

” { ($unit$)  is-a-constant  AAND  type  (unit)  #IS-IN  \ 
'fixed',  'integer'  \ }" 

=>  #TRUE  #. 

#DF  is-unsigned-function-ref erence  (unit) 

"{  ($unit$)  is-function-reference  #AND  type  (unit) 
//IS-IN  \ 'fixed',  'integer'  \ }" 

=>  #TRUE  #IFF  ( $function-item-declaration-for 
(declaration-for  ( function -name-in -reference 
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(unit)))$)  is-unsigned-declaration  #. 

#DF  size-of-result-of  (unit) 

”{  ($unit$)  is-operation-or-primitive-operand } " 

=>  integer-bits-in-result-of  (unit)  + 
fractional-bits-in-result-of  (unit)  #. 

#DF  integer-attributes  (operand) 

"{  ($  operand  $)  is-operation-or-primitive-operand  }" 

=>  attributes  (operand)  #IF  type  (operand)  #EQW 
' integer ' ; 

=>  attributes-converted-fixed-to-integer(operand ) #IF 
type(operand ) #EQW  'fixed'  ; 

=>  integer-attributes-of-converted-f loating  (operand) 
#IF  type(operand)  #EQW  'floating'  #. 

#DF  attributes-converted-f ixed-to-integer  (operand) 

"{  ($  operand  $)  is-operation-or-primitive-operand  }" 

=>  \ 0,  0,  1 \ #IF  integer-bits-f rom  (attributes 
(operand)  ) <=  0 ; 

=>  \ integer-bits-from  (attributes  (operand)  ),0, 

maximum  (minimal-bits-f rom  (attributes  (operand)  ) - 
f raction-bits-f rom  (attributes  (operand)  ),  1 ) \ 

#IF  integer-bits-from  (attributes  (operand)  ) > 0 #. 

"This  DF  is  implementation  dependent." 

#DF  integer-attributes-of-converted-f loating  (operand) 

"{($  operand  $)  is-operation-or-primative-operand } " 

=>  \35,0,1\  #. 


attr-202 


Page  select-203 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 


Selectors 


#DF  index-list-comprising  (index) 

"{  index  #IS  <destination-index>  }" 
=>  #SEG  1 #0F  index  #. 


#DF  first-index-formula-in  (ix-list) 
"{  ix-list  #IS  <index-list>  }" 
=>  #SEG  1 #0F  ix-list 


#DF  operand 1-of  (nx) 

=>  #FIRST-ELEMENT-IN 

sequence -of -operations -and -operands- in 
( f irst-operand-expression-of  (nx)  ) #. 


#DF  sequence-of-operations-and-operands-in  (nx) 

=>  #SEQUENCE-0F-N0DES  ny  #IN  nx  #SUCH-THAT  ( ($  ny  $) 
is-operation-or-primitive-operand  ) #. 


#DF  operand2-of  (nx) 

=>  #FIRST-ELEMENT-IN 

sequence-of-operations-and-operands-in 
( second-operand-expression-of  (nx)  ) #. 


#DF  first-operand-expression-of  (nx) 

*' { ($  nx  $)  is-an-evaluated-formula  #0R  ($  nx  $) 
is-operation-or-primitive-operand  #AND  #N0T  ($  nx  $) 
is-special-boolean-operation  }" 

=>  first-operand -express ion-of-numeric-binary-operat ion 
(nx)  #IF  ($  nx  $)  is-numeric-binary-operation ; 

=>  first-operand-expression-of -numeric-unary-operation 
(nx)  #IF  ($  nx  $)  is-numeric-unary-operation ; 
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=>  f irst-operand-expression-of-boolean-operation  (nx) 
#IF  ($  nx  $)  is-boolean-operation ; 

=>  first-operand-expression-of-relational-operation 
(nx)  #IF  ($  nx  $)  is-relational-operation ; 

=>  nx  #IF  ($  nx  $)  is-an-evaluated-entity  #. 

#DF  fir St -operand -express ion -of -numeric -binary-operation 
(nx) 

”{  ($  nx  $)  is-numeric-binary-operation  }" 

=>  #SEG  1 #0F  nx  #. 

#DF  first-operand-expression-of-numeric-unary-operation  (nx) 

"{  ($  nx  $)  is-numeric-unary-operation  }" 

=>  #SEG  5 #0F  nx  #IF  nx  #IS  #CASE  1 #0F  <abs-function> 
#0R  nx  #IS  <nwdsen-function>  #U  <loc-function> ; 

=>  #SEG  3 #0F  nx  #IF  nx  #IS  #CASE  2 #0F  <abs-function> 
#0R  nx  #IS  <unary-minus>  #. 

#DF  first-operand-expression-of-boolean-operation  (nx) 

"{  nx  #IS  <negation>  }" 

=>  #SEG  3 #0F  nx  #. 

#DF  first-operand-expression-of-relational-operation  (nx) 

"{  ($  nx  $)  is-relational-operation  #AND  nx  #IS-N0T 
<chain-relation>  }” 

=>  #SEG  1 #0F  nx  #. 

#DF  is-an-evaluated-entity(nx) 

''{nx  #IS  #N0DE}'' 

=>  ITRUE  #IFF  (($  px  $)  is-an-evaluated-formula  #0R  ($ 
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nx  $)  is-an-evaluated-expression  #0R  ($  nx  $) 
is-an-evaluated-atomic-formula)  #. 

#DF  is-an-evaluated-atomic-formula  (nx) 

'•{  nx  #IS  #N0DE  }" 

=>  nx  #IS  <atomic-f ormula>  #. 

#DF  is-an-evaluated-expression  (nx) 

'•{  nx  #IS  INODE}" 

=>  nx  IIS  <boolean-expression>  lU  <numeric-expression> 

I. 

IDF  second-operand-expression-of  (nx) 

"{  ($  nx  $)  is-binary-opeation  lAND  INOT  ($  nx  $) 
is-special-boolean-operation  }" 

=>  ISEG  5 lOF  nx  I. 

IDF  relation-constant-of  (unit) 

"{  unit  IIS  <relation>  lAND  unit  lEQ 
current-executable-unit  }" 

=>  IRIGHT  2 ICHARACTERS-OF  ( ISTRING-OF-TERMINALS-OF  ( 
ISEG  3 lOF  unit  ) ) I. 

IDF  formula-comprising  (nx) 

"{  nx  IIS  <index-f ormula> } " 

=>  ISEG  1 lOF  ( ISEG  1 lOF  nx)  I. 

IDF  exponent-part-of  (nx) 

"{  ($nx$)  has-an-exponent-part } " 

=>  ISEG  3 lOF  nx  I. 


select-205 


Page  select-206 


07/12/77 

Specification  of  J0VIAL(J3)  SEMANOL  Project 

Semantic  Definitions  Section  Selectors 


#DF  floating-part-of  (nx) 

”{  nx  #IS  <fixed-constant>} " 
=>  #SEG  1 #0F  nx  #. 


#DF  has-a-fraction-part  (nx) 

"{  nx  #IS  #N0DE}'' 

=>  ( #TRUE  #IFF  ($  simple-f loating-constant-part-of 
(nx)$)  has-a-fraction-part)  #IF  nx  #IS 
<exponentiated-floating-constant> ; 

= > #TRUE  #IFF  nx  #IS  //CASE  2 #0F 

<simple-f loating-constant>  #0R  nx  #IS  //CASE  3 #0F 
<simple-f loating-constant>  #0THERWISE  #. 


^DF  integer-part-of  (nx) 

”{  nx  //IS  <integer-constant>  #0R  (nx  #IS 
<simple-f loating-constant  #U 
<exponentiated-f loating-constant>  #AND  ($nx$) 
has-an-integer-part } " 

=>  integer-part-of  (simple-f lo®ting-constant-part-of 
(nx))  #IF  nx  #IS  <exponentiated-f loating-constant> ; 

=>  #SEG  1 #0F  nx  #0THERWISE  #. 


//DF  has-an-integer-part  (nx) 

"{  nx  #IS  #N0DE}" 

= > (//TRUE  #IFF  ( $simple-f loating-constant-part-of 
(nx)$)  has-an-integer-part)  #IF  nx  filS 
<exponentiated-f loating-constant> ; 

= > #TRUE  #IFF  nx  ifUS  //CASE  1 //CF 

<simple-f loating-constant>  ^^OR  nx  //IS  #CASE  2 //OF 
<simple-f loating-constant>  lOTHERWISE  #. 
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#DF  simple-f loating-constant-part-of  (nx) 

"{  nx  #IS  <exponentiated-f loating-constant> } '• 
=>  #SEG  1 #0F  nx  #. 

#DF  f ixed-constant-exponent-of  ( f ixed-con«t ) 

"{  fixed-const  #IS  <f ixed-constant> } 

=>  #SEG  3 #0F  fixed-const  #. 
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#DF  implementation -location-value-size 
=>  18  #. 

#DF  imp lemen tat ion -max-pos -functions 1-mod i^ier-size 
=>  bits-per-word  - 1 #. 

#DF  imp  lemen  tat  ion-in  teger-bits-in-loop-vari?'ble 
=>  bits-per-word  - 1 #. 

//DF  bits-per-word 

"{on-return:  bits-per-word  >=  bits-per-by te } " 

=>  35  #. 

#DF  bits-per-byte 

”{on-return:  bits-per-byte  >=  6}” 

= > 9 

"The  bits  per  byte  are  tacitly  assumed  to  be  greater  or 
equal  to  six." 

#DF  implementation-integer-zero 

=>  ($  bits-per-word  $)  zeroes 

#DF  implementation-integer-add  (x,y) 

"{  ($\x,y\$) 

are-implementation-numeric-representat  Ions } " 

=>  ($  ($x$)  converted-to-standard-form  + ($y$) 
converted-to-standard-f orm  $) 
with-result-converted-to-implementation-form 
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#DF  implementation-fixed-add  (val-x,  attr-x,  val-y,  attr-y, 
attr-r ) 

•'{($\val-x,  val-y\$) 

are-implementation-numeric-representations  #AND 

($\attr-x,  attr-y,  attr-r\$)  are-attributes  1 *' 

=>  implementation-integer-add 

( implementation-left-arithmetic-shift  ( v^^l-x , "by" 
f raction-bits-f rom  (attr-r)  - fraction-b < is-from 
(attr-x) ) , ”+"  implementation-left-arithme<'ic-shift 
(val-y  ,"by"  fraction-bits-f rom  (attr-r)  - 
f raction-bits-f rom  (attr-y)))  #. 


#DF  implementation-integer-subtract  (x,y) 

"{  ($\x,y\$) 

are-imp lementation-numeric-representat ions } ” 

=>  ($  ($x$)  converted-to-standard-form  - ($v#) 
converted-to-standard-form  $) 

with-result-converted-to-implementation-form  # . 


#DF  implementation-fixed-subtract  (val-x,  attr-x,  val-y, 
attr-y, attr-r)"{  ($\val-x,  val-y\$) 
are-implementation-numeric-representations  #AND 
($\attr-x,  attr-y,  attr-r\$)  are-attributes}” 

=>  implementation-integer-subtract 

( implementation-left-arithmetic-shift (val-y , "by" 
fraction-bits-f rom  (attr-r)  - 
fraction-bits-from( attr-x) ) , 

implementation-left-arithmetic-shift  (val-y  ,"by" 
f raction-bits-from  (attr-r)  - f raction-bits-from 
(attr-y)))  #. 


#DF  implementation-floating-subtract(val-x,  val-y) 

"{  ($  \val-x,val-y\  $) 

are-implementation-numeric-representations  } " 

=>  implementation-floating-add  (val-x, 

implementation-negated-floating(vai-y ) ) #. 
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#DF  implementation-fixed-product 
t ( val-x , attr-x , val-y , attr-y , attr-r ) 

i 

"{  ($\val-x,  val-y\$) 

are-implementation-numeric-representations  #A.<C 
($\attr-x,  attr-y,  attr-r\$)  are-attributes}" 

=>  ($  implementation-left-arithmetic-shift  ( ($ 

($val-x$)  converted-to-standard-form  • ($vai-y$) 
converted-to-standard-form  $) 

with-result-converted-to-implementation-dp-f  orm, 

"by"  fraction-bits-from  (attr-r)  - 
f raction-bits-from  (attr-x)  - fraction-bits-from 
(attr-y)  ) $)  conf ormed-to-implementation-word-size 

r 

E 

! 

5 #DF  implementation-integer-quotient  (x,"by"y) 

[ "{  ($x$)  is-implementation-double-word-numeric-rep  #AND 

E ($y$)  is-implementation-numeric-rep'  'sentation } " 

I =>  ($  ($x$)converted-to-standard-fortP  / 

I ( $y$)converted-to-standard-form  $) 

; with-result-converted-to-implementation-f orm 


#DF  implementation-fixed-quotient  (val-x,  attr-x,  val-y, 
attr-y , attr-r )" { ($\val-x,  val-y\$) 
are-implementation-numeric-representations  #AND 
($\attr-x,  attr-y,  attr-r\$)  are  attributes}" 

=>  implementation-integer-quotient 

(implementation-left-arithmetic-shift  (val-x,  "by" 
fraction-bits-from  (attr-r)  + fraction-bits-from 
(attr-y)  - f raction-bits-from(attr-x ) ) , "/"  val-v) 

#. 
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IDF  implementation-floating-compare  (val-x,  val-y) 

"»{  ($\val-x,  val-y\$) 

are-implementation-numeric-representations } " 

=>  relation-with-f loating-zero-of 

(implementation-floating-subtract  (val-x,  val-y))  #. 


IDF  imp lementation-integer-and -fixed -point -compare 

(val-x,  "with”  attr-x,  val-y,  "with"  attr-y) 

"{  ($\val-x,  val-y\$) 

are-implementation-numeric-representations  I AND 
( $\val-x , val-y \$)  are-attributes}" 

=>  relation-with-integer-zero-of 

(implementation-fixed-subtract  (val-x,  "with" 
attr-x,  val-y,  "with"  attr-y, 

result-attributes-f or-dif f erence-of  (attributes 
(val-x) , 

"and"  attributes  (val-y)))) 

#. 


IDF  relation-with-floating-zero-of  (val) 

"{  ($val$)  is-implementation-floating-representation}" 
=>  '='  IIF  ($val$)  is-zero-f loating-representation ; 

=>  *>*  IIF  ($val$)  is-positive-f loating-representation ; 

=>  '<'  IIF  ($val$)  is-negative-f loating-representation 

I. 


IDF  is-zero-f loating-representation  (val) 

"{  ($val$)  is-implementation-f loating-representation } " 
=>  val  lEQW  implementation-floating-zero  I. 


IDF  is-positive-f loating-representation (val ) 
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" { ( $val$ ) is-implementat ion-floating-representation } " 
=>  *0*  #EQW  sign-bit ( f loating-mantissa-of (val ) ) #. 

#DF  is-negative-floating-representation(val ) 

” { ( $val$)  is-implementation-f loating-representation } " 
=>  M'  #EQW  sign-bit ( f loating-mantissa-of ( val ) ) #. 


#DF  relation-with-integer-zero-of  (val) 

"{  ($val$)  is-implementation-numeric-representation } " 
=>  *='  #IF  val  #EQW  implementation-integer-zero  ; 

=>  •>'  #IF  #FIRST-CHARACTER-IN  (val)  #EQW  'O'; 

=>  ’<•  #IF  #FIRST-CHARACTER-IN  (val)  #EQW  *1'  #. 


#DF  result-attributes-f or-dif ference-of  (x,  "and"  y) 

"{  ($\x,y\$)  are-attributes}" 

=>  \integer-bits-for-dif ference-of  (x,  "and"  y), 
f ractional-bits-for-dif ference-of  (x,  "and"  y), 
minimal-bits-f or-dif ference-of  (x,  "and"  y)\  #. 


"The  relations  used  here  for  the  result  attributes  of  a 
difference  used  in  relations  are  the  same  as  those  used  for 
the  difference  operator." 


#DF  integer-bits-for-dif ference-of  (x,  "and"  y) 

"{  ($\x,y\$)  are-attributes}" 

=>  minimum  (unadjusted-integer-bits-for-dif ference-of 
(x,  "and"  y),  bits-per-word  - 1 - 
fractional-bits-for-difference-of  (x, 

"and"  y)) 
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#DF  unad justed-integer-bits-for-dif ference-of  (x,  "and”  y) 

”{  ($\x,  y\$)  are-attributes}" 

=>  1 + maximum  (integer-bits-from  (x), 
integer-bits-frora  (y))  #. 


#DF  fractional-bits-for-difference-of  (x,  "and"  y) 

"{  ($\x,y\$)  are-attributes}" 

=>  minimum  | 

(unad justed-fractional-bits-for-dif ference-of  (x,  1 

"and"  y),  maximum  (o,  bits-per-word  - 1 - j 

unad justed-integer-bits-for-difference-of  (x,  "and"  j 

y)))  #IF  bits-per-word  - 1 >=  \ 

unad justed-integer-bits-for-dif ference-of  (x,  "and"  | 

y) ; 

=>  minimum  j 

(unad justed-f ractional-bits-for-difference-of  (x,  j 

"and"  y),  bits-per-word  - 1 - 1 

unad justed-integer-bits-for-dif ference-of  (x,  "and"  i 

y))  #0THERWISE  #.  | 


#DF  unad justed-fractional-bits-for-dif ference-of  (x,  "and" 

y ) 

"{  ($\x,y\$)  are-attributes}" 

=>  fraction-bits-f rom  (x)  #IF  fraction-bits-f rom  (x)  = 
fraction-bits-from  (y)  #0R  ( fraction-bits-f rom  (y)  = 
0 iifAND  fraction-bits-from  (x)  >=  0)  ; 

=>  fraction-bits-from  (y)  #IF  fraction-bits-from  (x)  =0 
fiAND  fraction-bits-from  (y)  >=  0 ; 

=>  1 + minimum  (fraction-bits-from  (x), 
fraction-bits-from  (y))  #0THERWISE  if. 


#DF  minimal-bits-for-dif ference-of  (x,  "and"  y) 
"{  ($\x,  y\$)  are-attributes}" 


impl-213 


Page  impl-214 


07/12/77 

Specification  of  J0VIAL(J3)  SEMANOL  Project 

Semantic  Definitions  Section  Implementation  Parameters 


=>  maximum  (1,  bits-per-word  - 1)  #. 


#DF  implementation-left-arithmetic-shift  (val,  "by"  count) 

"{  ($val$)  is-string-of-ones-and-zeroes  #AND  count  #IS 
^INTEGER  }" 

=>  val  #IF  count  = 0; 

=>  implementation-right-arithmetic-shift  (val,  "by" 
#NEG  count)  #IF  count  < 0; 

=>  sign-bit  (val)  #CW  (#PIGHT  (^LENGTH ( val ) - 1) 
#CHARACTERS-OF  (magnitude-bits  (val)  #CW 
($count$)zeroes) ) #0THERWISE  #. 


#DF  implementation-right-arithmetic-shift  (val, "by"  count) 

"{  ($val$)  is-string-of-ones-and-zeroes  #AND  count  #IS 

//INTEGER  }" 

= > M'  #CW  (//LEFT  (//LENGTH(val)  - 1)  #CHARACTERS-0F 
(($count$)  ones  //CW  magnitude-bits  (val)))  #IF 
sign-bit  (val)  //EQW  '1'; 

r>  *0'  #CW  (//LEFT  (//LENGTH(val)  - 1)  #CHARACTERS-OF 
(($count$)  zeroes  //CW  magnitude-bits  (val))) 
//OTHERWISE  //. 


//DF  sign-bit  (val ) 

"{  ($val$)  is-string-of-ones-and-zeroes  }" 
= > //FIRST-CHARACTER-IN  (val)  // . 


//DF  magnitude-bits ( val ) 

"{  ($val$)  is-string-of-ones-and-zeroes  }" 

= > //SUBSTRING-OF-CHARACTERS  2 //TO  //LENGTH  ( val ) //OF  val 

//. 
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#DF  converted-to-standard-f orm  (val) 

"{  ($val$)  is-string-of-ones-and-zeroes  }" 

=>  standard-sign  (val)  #CW  standard-magnitude  (val)  ^CW 
'#B2'#. 

#DF  standard-sign  (val) 

”{  ($val$)  is-string-of-ones-and-zeroes  }" 

=>  #IF  #FIRST-CHARACTER-IN  (val)  #EQW  M'; 

=>  #NIL  #OTHERWISE  #. 

//DF  standard-magnitude  (val) 

"{  ($val$)  is-string-of-ones-and-zeroes  }•* 

=>  ($val$)  with-lef tmost-zeroes-suppressed  #IF 
#FIRST-CHARACTER-IN  (val)  #EQW  *0'; 

=>  ($  ($  ($  val  $)  decremented-by-one  $)  complemented 
$)  with-lef tmost-zeroes-suppressed  #OTHERWISE  #. 

#DF  decremented-by-one  (val) 

"{  ($val$)  is-implementation-numeric-representation } " 

=>  #RIGHT  ( #LENGTH  (val))  #CHARACTERS-OF  ( 

#PREFIX-OF-FIRST  '#B2'#IN  ('0'#CW  ((val  #CW  '#B2M  - 
1#B2)))  #. 

#DF  complemented  (val) 

"{  ($val$)  is-string-of-ones-and-zeroes  }" 

= > #PREFIX-OF-FIRST  ' //BITS' #IN  ( (val  #CW  '//BITS') 

//BXOR  ( ($//LENGTH(val)$)ones  //CW  '//BITS')  ) #. 

//DF  with-lef  tmost-zeroes-suppressed  (x) 

" { ( $x$  ) is-implementat ion-numeric-representation  } " 

======r================  impl-215  =============r=r======= 
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=>  'O'  #IF  X = 0; 

=>  #SUBSTRING-OF-CHARACTERS 

(pos-of-f irst-non-zero-char-in  (x))  #T0  #LENGTF  (x) 
#0F  X //OTHERWISE  #. 


//DF  pos-of-f  irst-non-zero-char-in  (x) 

"{  ($x$)  is-implementation-numeric-representation } " 

=>  #FIRST  char-pos  : 1 <=  char-pos  <=  #LENGTH(x) 

#SUCH-THAT  (char-pos  J/TH-CHARACTER-IN  x //NEQ'J  '0') 

#. 


#DF  with-result-converted-to-implementation-form  (se-^-const) 

"{  ( $sem-const$ ) is-semanol-base-2-integer-cons^ant } " 

= > ($  #PREFIX-OF-FIRST  M/BP' //IN  sem-const  $) 
conf ormed-to-implemen tat ion -word -size  #IF 
//FIRST-CHARACTER-IN  (sem-const)  #NEQW 

= > ($($($  word-between  ('-',  "and"  '//B2',  "in" 

sem-const)$)  conf ormed- to- implement at ion-word -size 
$)  complemented  $)  incremented-by-one  #OTHERVISE  //. 


//DF  word-between  (string  1 , "and"  stringP,  "in"  sem-const) 

"{  ( $\string 1 , stringP , sem-const\$ ) are-semanol-strings 


= > #PREFIX-OF-FIRST  stringP  #IN  ( //SUFFIX-OF-FIRST 
stringl  //IN  sem-const)  //. 


//DF  conf ormed-to-implementation-word-size  (val) 

"{  ($val$)  is-string-of-ones-and-zeroes } " 

= > //RIGHT  bits-per-word  //CHARACTERS-OF  (($ 
bits-per-word$ ) zeroes  //CW  val)  //. 


//DF  incremented-by-one  (val) 
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"{  ($val$)  is-string-of-ones-and-zeroes  }" 

=>  #RIGHT  ( ^LENGTH  (val))  #CHARACTERS-OF  ( 

#PREFIX-OF-FIRST  '#B2'  #IN  ( (val  #CW  '#82')  + 
1#B2))  #. 


#DF  with-result-converted-to-implementation-dp-form 
( sem-const ) 

"{  ($sem-const$)  is-semanol-base-2-integer-constant } " 

=>  ($  #PREFIX-OF-FIRST  •#B2'#IN  sem-const  $) 
conformed-to-implementation-dp-word-size  #IF 
#FIRST-CHARACTER-IN  (sem-const)  #NEQW 

=>  ($($($  word-between  ('-•,  "and"  '#82',  "in" 
sem-const ) $ ) 

conf ormed-to-implementation-dp-word-size  $ ) 
complemented  $)  incremented-by-one  fOTHERWISE  #. 


#DF  conformed-to-implementation-dp-word-size  (val) 

"{  ($val$)  is-string-of-ones-and-zeroes}" 

=>  #RIGHT  (2  » bits-per-word)  #CHARACTERS-OF  ( ($  (2  * 
bits-per-word)  $)  zeroes  #CW  val)  #. 


#DF  fractional-binary-representation-of  (d,  "to" 
e "bits-of-precision" ) 

"{  e >=0  #AND  d #IS-IN  #NAT-N0S}" 

=>  #NIL  #IF  e <z0; 

=>  next-binary-digit-from  (d)  #CW 

fractional-binary-represen tat ion-of 
(binary-fractional-residue  (d),  "to"  e - 1 "bits") 
fOTHERWISE  #. 


#DF  next-binary-digit-from  (d) 
"{  d #IS-IN  #NAT-N0S}" 
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=>  *0'  #IF  #FIRST-CHARACTER-IN  (d)  < 5; 

=>  ' 1 ' fOTHERWISE  #. 

#DF  binary-fractional-residue  (d) 

”{  d #IS-IN  #NAT-N0S}" 

= > BRIGHT  ( y/LENGTH  (d))  #CHARACTERS-OF  ( ($  #LENGTH(d) 
$)  zeroes  #CW  (2*d)  ) #. 

#DF  imp lementat ion-standard -hoi lerith-map-pair-sequence 
= > \ 


\#SPACE,  '20yyB8*  \, 


22#B8* 

\, 

\ ’C' 

, '23#B8' 

\ 

25#B8' 

\ 'F' 

, '26yyB8' 

\ 

30#B8' 

\, 

\ *1* 

, '31#B8' 

\, 

\ 

42yyB8' 

\ 'L* 

, '43#B8' 

\ 

45yyB8' 

\, 

\ 'O' 

, '46yyB8' 

\, 

\ 

50#B8' 

\, 

\ 'R' 

, '5iyyB8' 

\ 

63yyB8' 

\ 'U' 

, '64#B8' 

\, 

\ 

66y/B8' 

\ 'X' 

, '67#B8' 

\, 

\ 

7iyyB8' 

\, 

\ »)' 

, '55#B8' 

\ 

60#B8' 

\, 

\ ' = ' 

, '75yyB8' 

\ 

54yyB8' 

\ ’(' 

, '35#B8' 

\ 

o 

o 

00 

00 

\, 

\ ' 1 ' 

, '01#B8' 

\, 

\ 

03#B8' 

\ '4' 

, '04y/B8' 

\ 

06#B8' 

\, 

\ '?' 

, '07y/B8' 

\ 

'11#B8'  \, 

\ '[']*,  '57#B8*  \, 
•33#B8'  \ 


\ 'A' 

, '21 #B8 

t 

\ ' 

'D'  , 

'24y/B8' 

\ 

•E' 

'G'  , 

'27#B8' 

\ 

'H' 

•J'  , 

'4iyyB8' 

\, 

\ 

'K' 

'M'  , 

'44yyB8' 

\ 

'N' 

•P'  , 

'47#B8' 

\ 

'Q' 

•S'  , 

'62#B8' 

\ 

1 y 1 

'V  , 

'65#B8' 

\ 

'W 

'Y'  , 

'70yyB8' 

\ 

•Z' 

1 ^ f 

'52yyB8' 

\ 

' + ' 

•$'  , 

'53#B8' 

\ 

« * 1 

t f 
f > 

'73#B8' 

\, 

\ 

'O' 

•2'  , 

'02#B8' 

\ 

,3. 

•5'  , 

'05#B8' 

\ 

'6' 

’8', 

' 10#B8' 

\ 

.9. 

\ '/' 

, '61#B8 

t 

\ ' 
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\ #. 


#DF  implementation-hollerith-map-pair-sequence 
= > \ 


\ 

•[[]' 

, M2#B8'  \, 

\ •] 

•34#B8' 

\ 

' 36#B8' 

\ 

’>'  • 

'16#B8'  \, 

\ 

1 • 1 

' 15//B8' 

\ 

t • f 

9 9 

•56#B8'  \, 

\ 

\ 0 1 

• 17#B8’ 

\,  \ 

1 1 t 

*77#B8'  \, 

\ 

'74i!fB8' 

\ 

t If  t 

9 

'76#B8'  \, 

\ 

• 14//B8' 

\ 

t t 

•13//B8’  \, 

\ 

• 32#B8' 
•40#B8» 

\ 

9 

•37#B8'  \, 
’72#B8'  \ 

\ 

I ^ f 

f 

\ 

t t 

\ #. 


#DF  implementation-f loating-add (val-x , "+"val-y ) 

*’  { ( $\val-x , val-y\$ ) 

are-implementation-numeric-representation } ” 

=>  ($normalized-floa ting-add-process 

(extended-precision-form-of( val-x ) , "+" 
ad jus ted -extended -precis ion-form-of 
(val-y , "us ing” val-x ) )$) 

con verted-to-implementat ion-floating-form  #IF 
exponent-dif ference -of (val-x , "and "val-y  ) > = 0 ; 

=>  implementation-f loating-add (val-y , "+" val-x) 
//OTHERWISE  //. 


#DF  normalized-f loating-add-process  (impl-val-x,  "+" 
impl-val-y ) 

"{( $\ impl-val-x , impl -val-y \$ )are-extended-prec is ion-f  orms } " 

= > ($  \ floating-exponent-from(impl-val-x) , 
implementation-double-word -add 
( floating-mantissa -from ( impl-val-x ) , "+" 
floating-mantissa-from(impl-val-y ) )\$)  normalized  #. 


#DF  ex tended -precis ion-f orm-of(val ) 

" { ( $val$ )is-implenentat ion-numeric-representation } " 
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=>  \ single-word-representation-of 
(f loa ting -exponent -of (val ) ) , 
d ou bl e-word -rep resen t at ion-of 
(floating-mantissa-of (val) )\  #. 


#DF  ad justed -ext ended -precision-f orm-of (val -y , "using "val -x ) 
" { ($\val-x,val-y\$) 

are-implemen tat ion-numeric -represen tat ion } " 

=>  \single-word -rep resen tat ion-of 
( floating-exponent-of (val-x) ) , 
implementation-right-arithmetic-shift 
( double -word -represen tat ion-of 
( f loating-mantissa-of (val-y ) ) , "by" 
exponent-difference-of (val-x, "and"val-y)  ) \ #. 


^DF  exponent-dif ference -of (val-x , "and "val-y ) 

" { ( $\ val-x , val-y \$ ) 

are-implementation-numeric-representations } " 

=>  ( $floating-exponent-from( ex tended -precision-f orm-of 
(val-x) ) $)converted-to-standard-form  - 
($floating-exponent-f  rom(extended-precision-f  orm-of 
(val-y))  $)  converted-to-standard-f orm  #. 


#DF  floating-exponent-from(impl-val ) 

" { ( $impl- val $)is-ex tended -precis ion -form}" 
=>  #FIRST-ELEMENT-IN  impl-val  #. 


#DF  floating-mantissa-from( impl-val ) 

"{($impl-val$) is -extended -precis! on -form}" 
= > iiLAST-ELEMENT-IN  impl-val 


#DF  implementation-double-word-add (dpval-x,"and"dpval-y) 
" { ( $\dpval-x ,dpval-y\$ ) 

are-implementat ion-double-word -numeric-reps } " 
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=>  ($($dpval-x$)converted-to-standard-form  + 

( $dpval-y$ ) con verted -to-standard-form$ ) 
with-result-converted-to-implementation-dp-form  # . 


#DF  normalized ( impl-val ) 

” { ($impl-val$)is-extended-preci3ion-form}" 

=>  \ implementation-integer-subtract 

( floating-exponent -from (impl-val ) , "and" 

( $normalizing-lef t-shift-for  ( 
f loating-mantissa-f rora  (impl-val))  $) 
con verted-to-implementat ion-form) , 
implementation-left-arithmetic-shift 
(floating-mantissa-from(impl-val) , "by" 
normalizing-left-shift-f  or 
(floating-mantissa-from(impl-val)  ) ) \ #. 


#DF  converted-to-implemen tat ion-floating-form (impl-val ) 

" { ( $impl-val$ ) is-ext ended -precis! on-form } " 

=>  implementation-floating-zero  #IF 
f loating-mantissa-f rom( impl-val ) =0 ; 

=>  #SUBSTRING-OF-CHARACTERS  (1  + bits-per-word  - 
bits-in-f loating-exponent ) #T0  bits-per-word  #0F 
floating-exponent-from( impl-val ) #CW  ( 
#SUESTRING-OF-CHARACTERS  ( 1 + 

bits-in-f  loating-exponent  ) #T0  bits-per-word  //OF 
f loating-mantissa-f rom  (impl-val)  ) lOTHEPWISE  #. 


#DF  single-word -represen tat ion -of (val ) 

" { ( $val$) is-str ing-of-ones-and -zeroes } " 

=>  #RIGHT  bits-per-word 

//CHARACTERS-OF(sign-extension-for(val)  #CW  val)  #. 


IDF  floating-exponent-of (val ) 

" { ( $val$ ) is-implemen tat ion-numeric- representation } " 


L 
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=>  #LEFT  bits-in-f loating-exponent  #CHARACTERS-OF  val 

#. 


#DF  double-word-representation-of (val ) 

" { ( $val$ ) is-string-of-ones -and -zeroes } " 

=>  #RIGHT  (2»bits-per-word)  #CHARACTERS-OF 
(sign-extension-for(val)#CW  val  //CW 
( $bits-per-word$) zeroes ) # . 


#DF  floating-mantissa-of ( val ) 

" { ( $val$ ) is-implemen tat ion-numeric-representation } ” 

I 

=>  #RIGHT  bits-in-f loating-mantissa  #CHARACTERS-OF  val 

#. 


#DF  normal izing-left-sh if t-f or (dpval ) 

" { ( $dpval$ ) is -implementation-double-word -numeric-rep } ” 
=>  0 #IF  dpvalrO; 

= > (#SUBSTRING-POSIT-OF  M*  #IN  magnitude-bits(dpval ) ) 

- ( 1+bits-in-f loating-exponent ) #IF 
sign-bit(dpval)#EQW  'O'  ; 

= > (#SUBSTRING-POSIT-OF  'O'  #IN  magnitude-bits ( dpval ) ) 

- (1  + bits-in-f loating-exponent ) fOTHERWISE  #. 


#DF  converted- to- implementation-form ( sem-const ) 

" { ( $sem-const$ ) is-semanol-decimal-integer-constant } " 

=>  ($#C0NVERT  2 (sem-const)  $) 

with-result-converted-to-implementation-f orm  # . 


//DF  implementation-floating-zero 

f "{on-return: 

length( implementation-floating-zero ) = bits-per-word  } " 


f 

t 
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=>  '1'  #CW  ($6$)zeroes  #CW  ($28$)zeroes  #. 

#DF  bits-in-floating-exponent 

" {on-return : bits-in-floating-exponent  >=8  #AND 
bits-in-floating-exponent  bits-per-word } " 

= > 8 #. 

#DF  bits-in-f loating-mantissa 

*' {on-return : bits-in-f  loating-mantissa>  = 28  #AND 
bits-in-f loa ting-man tissa\  bits-per-word } " 

=>  28  #. 

#DF  sign-extension-for(val) 

" { ( $val$ )is-str ing-of-ones-and -zeroes }" 

=>  ($bits-per-word$)ones  #IF  sign-bit (val ) #EQW' 1 ' ; 

= > ($bits-per-word$)  zeroes  //OTHERWISE 

#DF  implement at ion-negated-f loa ting(val ) 

" { ( $val$ ) is-implemen tat ion-numeric- represen tat ion } " 

=>  ($  \ f loating-exponent-from 

(extended-precision-form-of (val ) ) , 
implementation-negated  ( floating-mantissa- from 
( extended-precision-f orm-of ( val ) ) ) \$ ) 
con verted-to-implemen tat ion-floating- form  # . 

//DF  implementation-negated  (val ) 

” { ( $val$ ) is-string-of-ones-and-zeroes } ” 

=>  ( $ ( $val$ )complenented$ ) incremented-by-one  #. 

//DF  Implementat  ion -float  ing-product  ( val-x , "+”val-y  ) 


J 
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"{ ($\val-x,val-y\$)  j 

are-implementation-numeric-representations } " i 

=>  (Inormalized-floating-product-process  3 

( ($extended-precision-form-of (val-x)$)  ‘ 

with-mantissa-right-shifted , | 
( $ex tended -precis ion-form-of (val-y) $)  s 

with-mantissa-right-shifted )$ ) | 

converted-to-implementation-f loating-f orm  #.  j 

j 

#DF  normalized-f loating-product-process  i 

(impl-val-x, "•"impl-val-y ) ] 

'*{($  \impl-val-x,  impl-val-y\  $) 

ar e-ex tended -precis ion - f orms } ” | 

=>  ($  \implementation-integer-add 
(implementation-integer-add 
(floating-exponent-from(impl-val-x) , "+” 
f loating-exponent-from(impl-val-y ) ),  "+” 

( $bits-in-floating-exponent  + 1$) 
converted-to-implementation-f orm ) , 
implementation -double-word -product 
( floating-mantissa-from( impl-val-x ) , 
f loating-mantissa-from  (impl-val-y)  ) \ $) 
normalized  #. 


"The  numeric  quantity  ' bits-in-f loating-exponent  + 1'  has 
been  added  to  the  exponent  to  correctly  adjust  the  binary 
point  for  the  operand  representation 
'with-mantissa-right -shifted ' . " 


//DF  with-mantissa-right-shifted  ( impl-val ) 

" { ( $impl-val$ ) is-extended-precision-form) " 

= > \ floating-exponent-from( impl-val ) , 

implementation-right -arithmetic-shift 
( f loa ting -mantissa -f  rom ( impl-val ) , "by" 
bits-per-word ) \ #. 


#DF  implementation -double-word -product (dpval-x , "and"dpval-y ) 
" { ( $\dpval-x , dpval-y\$ ) 
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are-implementat ion-double-word -numer ic-reps } ” 

=>  ($($dpval-x$)converted-to-standard-form  • ($ 
dpval-y$)  converted-to-standard-form  $) 
with-result-converted-to-implementation-dp-form  # . 


#DF  iraplementat ion-floating-quotient ( val-x , "/"val-y ) 
"{($\val-x,val-y\$) 

are-implemen tat ion -numer ic-representat ions } ” 

=>  ( $normalized-f loating-quotient-process 
(extended-precision-form-of (val-x) , "/" 
($extended-precision-form-of(val-yH) 
with-mantissa-right-shifted ) $) 
con  verted- to- implementation-floating-form  // . 


#DF  normal ized-f loating-quotient-process 
(impl-val-x,  ”/”  impl-val-y) 

” { ($  \impl-val-x,  impl-val-y  \ $) 
a re -ex tended -precis ion -forms } " 


=>  ($  \implementation-integer-add 
( implementation-integer-subtract 
( floating-exponent -from ( impl-val-x ) , 
floating-exponent-from( impl-val-y ) ) , 
bits-in-f loating-mantissa  - 1 $) 
con verted -to- implemen tat ion-f  orm ) , 
implementation-double-word -quotient 
( f loa ting-man tissa-from( impl-val-x) , 
f loa ting-man tissa-from ( impl-val-y ) ) 


”+"  ($ 


It  /II 

\ $)  normalized 


"The  numeric  quantity  ' bits-in-f loating-mantissa  - 1'  has 
been  added  to  the  exponent  to  correctly  adjust  the  binary 
point  for  the  divisor  representation 
'with-mantissa-right-shifted’ 


#DF  implemen tat ion-double -word -quotient 
( dpval-x , "/"dp val-y ) 

" { ($\dpval-x,dpval-y\$) 

a re-implementation-double-word -numer ic-reps } " 
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=>  ($( $dpval-x$)converted-to-standard-form  / 

( $dpval-y$ ) con verted -to-standa rd -form $ ) 

wi th- result -converted-to- implementation -dp- f orm  # . 


#DF  are-extended-precision-forms(seq) 

"{seq  #IS  #SEQUENCE  #AND  #LENGTH( seq  ) >=  1 } " 

=>  ($#FIRST-ELEMENT-IN  seq  $) 

is-extended-precision-form  //IF  #LENGTH(seq  ) = 1 ; 

= > ($//FIRST-ELEMENT-IN  seq  $) 

is-extended-precision-form  //AND 
( $all-but-first -element -in ( seq ) $ ) 
are-extended-precision-forms  //OTHERWISE  // . 


#DF  is-extended-precision-form ( impl-val ) 

=>  ( $floating-exponent-from( impl-val ) $) 

is- implementation-numeric-represen tat ion  #AND 
( $f loating-mantissa-f rom ( impl-val ) $ ) 

is-implementat ion-double-word-numeric-represen tat  ion 
//AND  #LENGTH(impl-val)=2  #. 


//DF  imp  lamentation -spec  ial -exponen  t ia  1 (val-x  val-y  ) 

” { ( $val-x , val-y$ ) 

are-implemen tat ion-floatingrepresentat ions } " 

= > //EXTERNAL-CALL-OF 

' external-implementation-special-exponential ’ 
//WITH-ARGUMENT(\val-x,''»»''val-y\)  //. 


//DF  implementation-floating-exponential  (val-x  , "**"val-y  ) 

” { ( $val-x , val-y $ ) 

are-implementation-floating-representations } ” 

= > 

//EXTERNAL-CALL-OF ’external-imp  lamentation -floating-exponential' 
//WITH-ARGUMENT(\val-x,"»»"val-y\)  9. 
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#DF  integer-portion-indicated-in-floating-constant  (unit) 

"{unit  #IS  <f loating-constant>  #AND  unit  #EQ 

cur rent -executable -unit } " 

=>  simple-integer-portion-f rom 

(floating-constant-form-of (unit) ) #IF 
f loating-constant-f orm-of(unit)  #IS 
<simple-f loating-constant> ; 

= > exponent iated-integer-portion-f rom 
(floating-constant-form-of (unit) ) #IF 
f loating-constant-f orm-of (unit ) #IS 
<exponentiated-floa ting -con stant>  #. 


#DF  fr act ion -port ion -indicated -in- floating-const ant (unit ) 


"(unit  #IS  <f loating-constant>  #AND  unit 
current-executable-unit } " 


I 

I 

I 

t 


simple-f ract ional-portion-f rom 
( floating-constant-form-of (unit ) ) #IF 
floating-constant-form-of (unit ) #IS 
<simple-f loating-oonstant> ; 


#EQ 


=>  exponentiated-f ract ional-portion-f rom 
(floating-constant-form-of(unit))  #IF 
floating-constant-form-of (unit ) #IS 
< exponent ia ted-floa ting-cons tan t>  # . 


i 

.] 


a 


#DF  binary-exponent-for (unit ) 

"(unit  #IS  <f loating-constant>  #AND  unit  #EQ 
curr ent -executable -unit } " 

=>  ($  base-2-exponent-for(unit)$) 

converted-to-implementation-f orm  #. 

I 

#DF  binary-mantissa-for (unit ) | 

"(unit  #IS  <f loating-constant>  #AND  unit  #E0 
cu rrent-execu table -unit } " 

= > 'O'  //CW 

integer-portion-of-floa ting-constant-in-binary 
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(unit)  #CW 

fraction -port ion -of -floating-constant-in-binary 
(unit)  #. 


/ifDF  f loa ting-cons tant-form-of  (unit ) 

” { unit  #IS  <floating-constant>}" 
=>  #SEG  1 #0F  unit  #. 


#DF  base-2-exponent-for(unit ) 

"{unit  #IS  <f loating-constant>  #AND  unit  #E0 
cu rrent-exe cut able -unit } " 

=>  #LENGTH 

( in teger-portion-of -floating-constant -in-binary 
(unit)  ) #IF 

integer-portion-indicated-in-floating-constant (unit ) 
#N  = 0; 

= > #NEG  (#LENGTH(/)PREFIX-OF-FIRST  M'  #IN 

( fraction-port ion-of -floating-const ant -in -binary 
(unit)  )))  #IF 

fraction-portion -indicated -in-floating-constant 
(unit)  #N=0  #. 


#DF  integer-portion -of- floating-const ant-in-binary 
(unit ) 

"{unit  #IS  <f loating-constant>  //AND  unit  //EQ 
cur rent -executable -unit } " 

= > 

($integer-portion-indicated-in-floating-constant(unit)$) 
converted-to-binary-f  orm  // . 

"a  zero  integer  portion  yields  a #NIL  string." 


//DF  fraction-port  ion -of -floating-const  ant -in -binary 
(unit ) 

"{unit  //IS  <f loating-constant>  //AND  unit  #EQ 
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current-executable-unit } " 

=>  fractional-binary -representation -of 

( fraction-portion-indicated-in-floating-constant (unit ) , "to" 
bits-in-f loating-mantissa  - 1 - 

base-2-exponent-for(unit)  "bits-of-precision" ) #IF 
integer-portion-indicated -in-floating -constant (unit) 

#N  = 0; 

=>  binary-f raction-of 

( fraction-portion-indicated-in-floating-constant (unit ) , "to" 
bits-in-f loating-mantissa  - 1 "significant-bits") 

#IF 

fraction-port ion- indicated-in-floating-constant (unit ) 

#N=0  #. 


"a  non-zero  integer-portion  and  a zero  fractional  portion 
will  give  a binary  representation  of  the  fraction  portion  of 
the  correct  number  of  zeroes  to  complete  the  mantissa." 


#DF  converted-to-binary-f orm ( sem-const ) 

" { ( $sem-const$)  is-semanol -decimal -integer -const ant 
#AND  sem-const  >=  0}" 

= > #NIL  /flF  sem-const  = 0; 

= > //PRPFIX-OF-FIRST  '#B2'  #IN  (/CONVERT  2(sem-const)  #IF 
sem-const>0  #. 


#DF  binary-fraction-of (d , "to"  e "significant-bits") 

"{d  #IS-IN  //NAT-NOS  (/AND  e>0}" 

=>  next-binary-digit-f rom  (d)  #CW  binary-fraction-of 
(binary-fractional-residue  (d),  "to"  e 
"significant-bits")  #IF  next-binary-digit-f rom (d ) =0 ; 

=>  next-binary-digit-from(d ) #CW 

f ractional- binary- represents tion-of 
(binary-f ractional-residue (d  ), "to"  e - 1 
"bits-of-precision")  #OTHERWISE  (/ . 
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#DF  are-implementation-numeric-representations  (seq) 

"{  seq  #IS  #SEQUENCE  #AND  #LENGTH  (seq)  >=1}” 

=>  ($  #FIRST-ELEMENT-IN  seq$) 

is-implementation-numeric-representation  #IF  ^LENGTH 
(seq)  = 1; 

=>  ($  #FIRST-ELEMENT-IN  seq  $) 

is-implementation-numeric-representation  #AND  ($ 
all-but-f irst-eleraent-in  (seq)$) 
are-implementation-numeric-representations 
#0THERWISE  #. 


#DF  is-implementation-numeric-representation  (x) 

= > //TRUE  #IFF  ($x$)  is-string-of-ones-and-zeroes  //AND 
//LENGTH  (x)  = bits-per-word 


//DF  are-strings-of-ones-and-zeroes  (seq) 

•'{seq  //IS  //SEQUENCE}" 

= > #TRUE  //IF  seq  //EQ  //NILSEQ; 

=>  ($  #FIRST-ELEMENT-IN  seq  $) 

is-string-of-ones-and-zeroes  //AND 
( $all-but-fir St -element -in  ( seq ) $ ) 
are-strings-of-ones-and-zeroes  //OTHERWISE  // , 


//DF  is-string-of-ones-and-zeroes  (x) 

= > //FALSE  //IF  X //IS-NOT  //STRING; 

= > #TRUE  //IFF  X //IS  <binary-string>  //OTHERWISE  // . 


//DF  is-implementation-double-word-numeric-representation  (x) 

= > //TRUE  //IFF  ($  X $)  is-string-of-ones-and-zeroes  //AND 
//LENGTH  (x)  = 2 * bits-per-word  // . 


f 

i 
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#DF  are-attributes  (seq) 

•'{  seq  #IS  #SEQUENCE  #AND  #LENGTH  (seq)  >=  1}" 

=>  ($  #FIRST-ELEMENT-IN  seq  $)  is-attribute  #IF  #LENGTH 

Ueq)  =1; 

=>  ($  #FIRST-ELEMENT-IN  seq$)  is-attribute  #AND  ($ 
all-but-first-element-in  (seq)$)  are-attributes 
^OTHERWISE  #. 


#DF  is-attribute  (x) 

= > #FALSE  #IF  X #IS-N0T  /(SEQUENCE; 

= > //FALSE  #IF  /(LENGTH  (x)  #N=  3; 

= > /(TRUE  //IF  #F0R-ALL  element  #IN  x //IT-IS-TRUE-THAT 
(element  //IS  /(INTEGER)  ; 

= > /(FALSE  /(OTHERWISE  // . 


//DF  is-semanol-base-2-integer-constant  (x) 

= > //FALSE  //IF  x #IS-NOT  //INTEGER; 

= > //TRUE  f/IFF  ( //RIGHT  3 /(CHARACTERS-OF  x)  #EQW 
'//B2' //OTHERWISE  it. 


//DF  are-semanol-base-2-integer-constants  (seq ) 

"{  seq  //IS  //SEQUENCE  //AND  //LENGTH  ( seq ) >=  1 }" 

=>($  #FIRST-ELEMENT-IN  seq  $) 

is-semanol-base-2-integer-constant  #IF  /(LENGTH  ( seq  ) 
= 1 ; 

=>  ($  #FIRST-ELEMENT-IN  seq  $) 

is-semanol-base-2-integer-constant  /(AND  ($ 
all-but-first-element-in  (seq)  $) 

are-semanol-base-2-integer-constants  /(OTHERWISE  #. 


aUX2-231  ==r==========rr=r====== 

J 
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^ " #DF  is-a-program-context  (nx)  =>  #TRUE  #IFF  ($  nx  $) 

^ is-an-actual-program-context  #0R  nx  #IS 

<selected-compool-name>  #.  " 


yifDF  is-an-actual-program-context  (nx) 

=>  #TRUE  #IFF  ($  nx  $)  is-a-program-unit  #. 


#DF  is-a-program-unit  (nx) 

"{  nx  #IS  #N0DE  }" 

= > #TRUE  #IFF  nx  #IS  <program>  ifU 

<procedure-declaration>  #U  <procedure-subprogram>  #U 
<close-subprogram>  #U  <implementation-compool>  #U 
<defaults>  #. 


#DF  actual  (context) 

” { ($  context  $)  is-a-program-context}” 

=>  #FIRST  cp  #IN  sequence-of-compools-in 

(system-containing  (context))  #SUCH-THAT  (name-of 
(cp)  #EQW  context)  #IF  context  #IS 
<selected-compool-name> ; 

=>  context  #IF  ($  context  $) 
is-an-actual-program-context 


#DF  sequence-of-compools-ln  (sys) 

”{sys  #IS  < jovial-j3-system>}" 

=>  #SEQUENCE-OF  <implementation-compool>  #IN  sys  #. 


IDF  program-context  (nx) 

”{  nx  IIS  INODE}” 

=>  next-outer-context  (nx)  IIF  ($  nx  $) 
is-an-outermost-program-unit  lOR  nx  IIS 


contexts-232 
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i 
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<selected-compool-name> ; 

=>  program-unit-containing  (nx)  #OTHERWISE  #. 


#DF  is-an-outermost-program-unit  (px) 

"{px  #IS  #NODE}" 

=>  #TRUE  #IFF  ($px$)  is-a-program-unit  #AND  px  #IS-NOT 
<procedure-declaration>  #. 


#DF  next-outer-context  (nx) 

” { ($  nx  $)  is-an-outermost-program-unit  #0R  nx  #IS 
<selected-coropool-name> } " 

=>  next  (nx,  "in”  sequenoe-of-outer-contexts-for  (nx)) 
#IF  nx  #IS  <selected-compool-name> ; 

=>  #FIRST-ELEMENT-IN  sequence-of-outer-contexts-f or 
(nx)  #IF  nx  #IS  <program>  #U  <close-subprogram>  #U 
<procedure-subprogram>  #. 


#DF  sequence-of-outer-contexts-for  (nx) 

=>  #SEQUENCE-OF  <selected-compool-name>  #IN 

control-input-of  (program-unit-containing  (nx))  #CS 
\ defaults-of  (system-containing  (nx))  \ #. 


#DF  defaults-of  (sys) 

"{  sys  #IS  <jovial-j3-system>}" 
=>  #SEG  6 #0F  sys  #. 


#DF  next  (nx,  "in"  seq ) 

"(nx  #13  INODE  #AND  nx  #IS-IN  seq}" 
rXdORDPOSIT  nx  #IN  seq)  + 1)  #TH-ELEMENT-IN  seq  //. 


IDF  program-unit-containing  (nx) 
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"{nx  #IS  #N0DE}" 

=>  #LAST  px  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  (nx)  ) 
#SUCH-THAT  ( ($px$)is-a-program-unit)  #. 

#DF  control-input-of  (progunit) 

"{progunit  #IS  <program>  #U  <close-subprogram>  #U 
<procedure-subprogram>} " 

=>  #SEG  1 #0F  #PARENT-N0DE  (progunit)  #. 
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#DF  is-declared  ( nx , "in''decl ) 

"{  #STRING-OF-TERMINALS-OF  nx  #IS<name>  #AND 
( $decl$)is-a-declaration-for-a-name}" 

= > is-declared-in-category-  1-decl (nx ,''in"decl) 

# IF ( $d eel $)is-category- 1 -declaration ; 

= > is-declared-in-category-2-decl(nx,'’in"decl)  #IF 
( $decl$ )is-category-2-declaration ; 

=>  is-declared-in-category-3-decl (nx , "in"  decl)  #IF 
( $decl$)is-category- 3-declaration  #. 


#DF  is-category- 1 -declaration (decl ) 
=>  #FALSE#. 


#DF  is-declared-in-category- 1-decl (nx , "in "decl) 
=>  #FALSE#. 


#DF  is-category -2-dec la rat ion (decl ) 

"{decl  #IS  #N0DE}" 

=>  #TRUE  #IFF  decl  #IS-IN 

sequence-of-outer-category-2-decls-in  ( actual 
(program-context(decl) ) ) #. 


#DF  is-declared-in-category-2-decl  (nx,"in"  decl  ) 

"{  #STRING-OF-TERMINALS-OF  nx  #IS<natr.e>  #AND  ($  decl 
$ ) is-category-2-declaration } " 

=>  #THERE-EXISTS  stmt-name  #IN  #SEQUENCE-OF 
<statement-name>  #IN 

optional-statement-name-list-of ( decl  ) #SUCH-THAT 
(#STRING-OF-TERMINALS-OF(nx)  #EQW 
#STRING-OF-TERMINALS-OF(stmt-name) ) #IF  decl  #IS 
<statement> ; 
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=>  #STRING-OF-TERMINALS-OF(nx)  #EQW 

#STRING-OF-TERMINALS-OF(name-declared-by ( decl  )) 
#OTHERWISE  #. 


#DF  optional-statement-name-list-of ( stmt ) 
"{stmt  #IS<statement> ) " 

=>  #SEG  1 #0F  stmt  #. 


#DF  name-declared-by  (decl) 

"{($decl$)  is-category-2-decla ration}" 

=>  decl  #IF  decl  #IS  <formal-input-close-parameter>  #U 
< formal -out put-destinat ion -parameter> ; 

=>  #SEG  3 #0F  decl  #IF  decl  #IS  <close-declaration>  #U 
<prograra-declaration>  #U  <item-switch-declaration> 
<index-switch-declaration>  #. 


#DF  a-category-2-declaration-exists-f or  (dn) 

"{  dn  #IS  <destination-name>  #U 
<actual-input-close-parameter>  #U 
<actual-output-destination-parameter>  } " 

=>  there-exists-c2-decl-f or  (dn,  "looking-first-in" 
program-context  (dn))  #. 


#DF  there-exists-c2-decl-for  (dname,  "looking-first-in" 
context ) 

"{  dname  #IS  <destination-name>  #U 
<actual-input-close-parameter>  //U 
<actual-output-destination-parameter > #AND 
($context$)is-a-program-context}" 

=>  #TRUE  #IF  #THERE-EXISTS  candidate  #IN 

sequence-of-outer-category-2-decls-in  (actual 
(context))  #SUCH-THAT( ($dname , "in"  candidates) 
is-declared ) ; 

=>  there-exists-c2-decl-f or  (dname,  "looking-next-in" 
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program-context(context)  ) #IF 
( $context$ ) is-not-the-outermost -context ; 

=>  #FALSE  #OTHERWISE#. 


#DF  is-not-the-outermost-context  (context) 

"{  ($  context  $)  is-a-program-context}” 

=>  #TRUE  #IFF  context  #IS-N0T  <implementation-compool> 
#U  <defaults>  #. 


#DF  category-2-declaration-for  (dname) 

"{dname  #IS  <destination-name>  #U 
<actual-input-close-parameter>  #U 
<actual-output-destination-parameter>} " 

=>  c2-declaration-for  (dname, "in"  program-context 
(dname))  #. 


#DF  c 2-dec la rat ion- for (dname .context ) 

"{  dname  #IS  <destination-name>  #U 
<actual-input-close-parameter>  #U 

<actual-output-destination-parameter>  #AND  ($context$) 
is-a-program-context }" 

=>  #LAST  candidate  #IN 

sequence -of -outer-category-2-decls-in  (actual 
(context))  #SUCH-THAT 

( ($dname,"in"candidate$)is-declared)  #IF 
#THERE-EXISTS  candidate  #IN 

sequence-of-outer-category-2-decls-in  (actual 
( context ) ) 

#SUCH-THAT ( ( Idname , "in"candidate$ ) is-declared ) ; 

=>  c2-declaration-for  (dname,  program-context (context ) ) 
^OTHERWISE#. 


#DF  sequence-of-outer-category-2-decls-in  (px) 
" { ( $px$ ) is-a-program-context ) " 


! 

i 
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=>  sequence-of-category-2-decls-in(px)  #IF  px  #IS-NOT 
< jovial- j3-program> ; 

=>  #SUBSEQUENCE-OF-ELEMENTS  decl  #IN 

sequence-of-category-2-decls-in  (px)  #SUCH-THAT 
( ($decl$)  is-not-in-a-procedure-declaration ) 
#OTHERWISE  #. 


#DF  sequence-of-category-2-decls-in ( px ) 

” { ( $px$ ) is -a -program-con t ex t } " 

=>  #SEQUENCE-OF  <statement>  #U  <close-declaration>  #U 
<item-switch-declaration>  #U 

<index-switch-declaration>  #U  <program-declaration> 
#U  <forraal-input-close-parameter>  #U 
<formal-output-destination-parameter>  #IN  px  #. 


#DF  is-not-in-a-procedure-declaration  (nx) 

"{nx  #IS  #NODE}" 

= > #TRUE  //IFF  /tFOR-ALL  ancestor  #IN 

//SEQUENCE-OF-ANCESTORS-OF  (nx)  #IT-IS-TRUE-THAT 
(ancestor  #IS-NOT  <procedure-declaration> ) 


//DF  is-category-3-declaration(decl ) 

= > #TRUE  //IFF  ($  decl  $) 

is-explicit-category-3-declaration  #0R  decl  #IS 
<mode-directive>  //. 


//DF  is-declared-in-category-3-decl(nx,"in"decl) 

= > #TRUE  //IFF  ($  nx,  "in"  decl  $)  i s-proper ly-declared 

//. 


//DF  a-oategory- 3-declarat ion-ex ists-for  (var) 

"{  var  dflS  <simplp-variable>  //U  < indexed-var iaMe>  //U 
<name> ) " 

= > ITKUE  //IFF  (.t-  variable-name -of  (var)  $) 
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hao-an-explicit-c 3-declaration  #0R  ($ 
variable-name-of  (var)  $) 
has-a-declaring-mode -directive 

#. 


#DF  has-an-explicit-c3-declaration  (var) 

"{  var  #IS  <name>}" 

=>  #TRUE  #IFF  there-exists-explicit-c3-declaration-f or 
(var,  "looking-first-in”  program-context  (var))  #. 


#DF  has-a-declaring-mode-directive  (var) 

"{  var  #IS  <name>}" 

=>  #TRUE  #IFF  there-exists-mode-directive-declaring 
(var,  "looking-first-in”  program-context  (var))  #. 


#DF  there-exists-mode-directive-declaring 
(var,  "looking-first-in"  context) 

"{  var  #IS  <name>  #AND  ($  context  $) 

is-a-program-context } " 

= > //TRUE  //IF  #THERE-EXISTS  candidate  #IN 

sequence-of-mode-directives-in  (actual  (context)  ) 
//SUCH-THAT  ( ($  var,  "in"  candidate  $)  is-declared ) ; 

=>  there-exists-mode-directive-declaring  (var,  "looking 
next  in"  program-context  (context))  #IF  ($  context 
$)  is-not-the-outermost-context ; 

= > /fFALSE  #0THERWISE  #. 


#DF  category-3-declaration-for  (var) 

"{  var  #IS  <simple-variable>  #U  <indexed-variable>  #U 
<name>  }" 

=>  explicit-c3-declaration-for  (variable-name-of  (var) 
, "looking-first-in"  program-context  (var))  #IF  ($ 
variable-name-of  (var)  $) 
has-an-explicit-c3-declaration  ; 
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=>  mode-directive-declaring  (variable-name-of  (var), 
"looking-f irst-in"  program-context  (var))  ^OTHERWISE 

#. 


#DF  variable-name-of  (nx) 

”{  nx  #IS  <simple-variable>  #U  <indexed-variable>  #U 
<name>  }" 

= > nx  #IF  nx  //IS  <name>  ; 

= > //SEG  1 #0F  nx  //OTHERWISE  // . 


//DF  explicit-c3-declaration-f or  (nx,  "looking-f irst-in” 
context ) 

"{nx  #IS  <name>  #AND  ($context$)  is-a-program-context } " 
= > //LAST  candidate  #IN 

sequence-of-explicit-outer-category-3-decls-in 
(actual  (context))  #SUCH-THAT  (($nx,  "in” 
candidate$)  is-declared)  #IF  #THERE-EXISTS  candidate 
//IN  sequence-of-explicit-outer-category-3-decls-in 
(actual  (context))  #SUCH-THAT  (($nx,  "in" 
candidate!)  is-declared); 

=>  explicit-c3-declaration-for  (nx,  ”looking-next-in” 
program-context  (context))  #OTHERWISE  // . 


//DF  there-exists-explicit-c3-declaration-f or  (nx, 
"looking-in”  context) 

”{nx  //IS  <name>  //AND  ($context$)  is-program-context } ” 

= > //TRUE  //IF  #THERE-EXISTS  candidate  #IN 

sequence -of -exp lie it -outer-cate gory- 3-decls-in 
(actual  (context))  #SUCH-THAT  (($nx,  "in” 
candidate!)  is-declared); 

=>  there-exists-expllcit-c3-declaration-f or  (nx, 

”looking-next-in”  program-context  (context)  ) #IF 
(!context!)  is-not-the-outermost -con text ; 

= > IFALSE  //OTHERWISE  // . 
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#DF  sequence-of-explicit-outer-category-3-decls-in  (context) 

” { ( $context$ ) is-an-actual-program-context } ” 

=>  sequence-of-explicit-category-3-decls-in  (context) 
#IF  context  #IS-NOT  < jovial- j 3-program> ; 

=>  #SUBSEQUENCE-OF-ELEMENTS  decl  #IN 

sequence -of -exp licit -category- 3-d eels -in  (context ) 
#SUCH-THAT  (($decl$) 

is-not-in-a-procedure-declaration ) #OTHERWISE  #. 


#DF  sequence-of-explicit-category-3-decls-in  (context) 

” { ( $context$ ) is-an-actual-program-context } ” 

=>  #SEQUENCE-OF-NODES  nx  #IN  context  #SUCH-THAT  (($nx$) 
is-explic it -category- 3-declaration)  # . 


#DF  is-explicit-category-3-declaration  (nx) 

"{nx  //IS  //NODE}" 

= > #TRUE  //IFF  ($nx$)  is-data-declaration  #0R  nx  //IS 
<f ile-declaration>  //U  <procedure-declaration>  //U 
<subprogram-declaration>  //. 


//DF  is-data-declaration  (nx) 

"(nx  #IS  //NODE}" 

= > #TRUE  //IFF  nx  //IS  <simple-item-declaration>  #U 

<array-declaration>  #U  <ordinary-table-declaration> 

//U  <def ined-entry-table-declaration>  #U 

<like-table-declaration>  itU 

<ord inary- tab le-item-declarat ion > #U 

<string-item-declaration>  #U 

<def ined-entry-i tern-dec larat ion > # . 


//DF  mode-directive-declaring  (nx,  "looking-first-in" 
context ) 
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=>  #LAST  candidate  #IN  sequence-of-mode-d irectives-in 
(actual  (context))  #SUCH-THAT  (($nx,  "in" 
candidate$)  is-declared)  #IF  #THERE-EXISTS  candidate 
#IN  sequence-of-mode-directives-in  (actual 
(context))  #SUCH-THAT  (($nx,  "in"  candidate$) 
is-declared ) ; 

=>  mode-directive-declaring  (nx,  "looking-next-in" 
program-context  (context))  //OTHERWISE  // . 


//DF  sequence-of-mode-directives-in  (context) 

"{($context$)  is-an-actual-program-context } " 

= > //SEQUENCE-OF  <mode-directive>  //IN  context  //. 


//DF  is-properly-declared  (nx,  "in"  decl) 

"{nx  //IS  <name>  //AND  ($decl$) 

is-explicit-category -3-declaration}" 

= > //FALSE  //IF  nx  //PRECEDES  decl  //IN  actual 
(program-context  (decl))  #AND  ($  nx  $) 
is-not-formal-parameter-name  ; 

= > //TRUE  //IF  //STRING-OF-TERMINALS-OF  (nx)  //EQW 

//STRING-OF-TERMINALS-OF  (name-declared-in  (decl)  ) ; 

= > ($//STRING-OF-TERMINALS-OF  (nx),  "by"  decli) 
is-declared -implicitly  //IF  decl  //IS 
<1 ik e-table -declaration>; 

= > //FALSE  //OTHERWISE  // . 


//DF  is-not-formal-parameter-name  (nx) 

"{  nx  //IS  <name>  }" 

= > //PARENT-NODE  (nx)  /flS-NOT  <formal-input-parameter> 
//U  <formal-output-paramettr>  // . 


//DF  name-declared-in  (decl) 
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” { ( $decl$ ) is -exp lie it -cate gory- 3-dec la rat ion } " 

=>  #SEG  3 #0F  decl  #IF  decl  #IS  <f ile-declaration>  #U 
<subprogram-declaration>  #U 

<simple-item-declaration>  #U  <array-declaration>  #U 

<ordinary-table-declaration>  #U 

<defined -entry -table -dec la rati on > #U 

<like-table-declaration>  #U 

<ord inary- table-item-declarat ion > #U 

<string-item-declaration>  #U 

<def ined-entry-item-declaration> ; 

=>  #SEG  3 #0F  (procedure-head-of  (decl))  #IF  decl  #IS 
<procedure-declaration>  #. 


#DF  is-declared-iraplicitly  (nx,  "by"  decl) 

"{decl  #IS  <like-table-declaration>  #AND  nx  #IS 

<name> } " 

=>  #FALSE  #IF  #LAST-CHARACTER-IN  (name-declared-in 
(decl))  #NEQW  #LAST-CHARACTER-IN  (nx); 

=>  is-declared-implicitly  (all-but-last-character-in 
(nx),  "in"  pattern-table-decl-f or  (decl))  #IF 
pattern-table -decl- for, (decl)  #IS 
< like- table -dec larat Ion > ; 

= > iifTRUE  #IFF  #THERE-EXISTS  item-decl  #IN 

sequence -of -items-in-table  (pattern-table-decl-f or 
(decl))  #SUCH-THAT  (narae-declared-in  (item-decl) 
//EQW  all-but-last-character-in  (nx))  #0THERWISE  #. 


#DF  all-but-last-character-in  (str) 

”{str  #IS  //STRING}" 

= > #NIL  #IF  str  #IS  //NIL; 

= > #LEFT  (//LENGTH  (str)  - 1)  #CHARACTERS-OF  str 
//OTHERWISE  //« 


//DF  pattern-table-decl-f  or  (decl) 


k 
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"{decl  #IS  <like-table-declaration> } ” 

=>  pattern-table-for  (decl , "looking-f irst-in" 
program-context  (decl))  #. 


#DF  pattern-table-for  (decl,  "looking-f irst-in”  context) 

"{decl  y/IS  <like-table-declaration>  #AND  ($context$) 

is-program-context } " 

=>  #LAST  candidate  #IN  seq-of-table-decls-in  (actual 
(context))  #SUCH-THAT  ( ( $candidate , "for"  decl$) 
is-a-pattern-table)  #IF  #THERE-EXISTS  candidate  #IN 
seq-of-table-decls-in  (actual  (context))  #SUCH-THAT 
( ( $candidate , "for"  decl$)  is-a-pattern-table); 

=>  pattern-table-for  (decl,  "looking-next-in" 
program-context  (context)  ) #0THERWISE  #. 


//DF  seq-of-table-decls-in  (context) 

"{($context$)  is-an-actual -program-con text } " 

=>  #SEQUENCE-OF-NODES  x #IN  context  #SUCH-THAT  (($x$) 
is-a-table-declaration ) #. 


#DF  is-a-table-declaration  (nx) 

"(nx  //IS  //NODE}" 

= > //TRUE  //IFF  nx  //IS  <ordinary-table-declaration>  #U 
<defined -entry -table -declaration>  //U 
<lik e-table -declaration>  //. 


//DF  is-a-pattern-table  (table-decl,  "for"  like-decl) 

"(like-decl  //IS  <like-decIaration>  #AND  ( $table-decl$ ) 
is-a-table-declaration}" 

r>  //FALSE  //IF  like-decl  //PRECEDES  table-decl  //IN  actual 
(program-context  (table-decl))  ; 

= > #TRUE  //IFF  all-but-last-character-in 

(name-declared-in  (like-decl))  #E0W  name-declared-in 
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(table-decl)  #OTHERWISE  #. 


#DF  sequence-of-items-in-table  (decl) 

"{decl  #IS  <ordinary-table-declaration>  #U 
<de fined -entry-tab le-declaration> } ” 

=>  #SEQUENCE-OF  <ordinary-table-item-declaration>  #U 
<string-item-declaration>  #U 
<def ined-entry-item-declaration>  #IN  decl  #. 


#DF  declaration-for  (nx) 

”{  nx  #IS  <simple-variable>  #U  <indexed-variable>  #U 
<name>  }" 

=>  category-3-declaration-for  (nx)  #. 


#DF  detailed-declaration-for(nx) 

"{nx  #IS  <simple-variable>  #U  <indexed-variable> } " 

=>  counterpart-declaration-for  (nx)  #IF  ($nx$) 
is-like-declared ; 

=>  declaration-for  (nx)  #OTHERWISE  #. 


#DF  is-like-declared  (nx) 

”{  nx  #IS  <simple-variable>  #U  <indexed-variable> } " 

=>  #TRUE  #IFF  declaration-for(nx)  #IS 
<like-table-declaration>  #. 


#DF  counterpart-declaration-for(nx) 

"{  ($nx$)  is-like-declared  #AND  nx  #IS 
<simple-variable>  #U  <indexed-variable> } " 

=>  counterpart-table-declaration-for  (nx)  #IF 
variable-name-of  (nx)#EQW 
name-declared-in(declaration-for(nx ) ) ; 
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= > counterpart-table-item-declaration-for(nx ) 
//OTHERWISE  #. 


//DF  counterpart -table -dec  laration-f  or  (nx  ) 

"{nx  //IS  <simple-variable>  #U  <indexed-variable> } " 

= > ultimat e-pat tern- table-decl-f or(declaration-for(nx)) 

//. 


//DF  ul timat e-pat tern-table-decl-f or  (dec  1 ) 

"{decl  #IS  <like-table-declaration> } " 

=>  pattern-table-decl-for  (decl)  #IF 
pattern-table-decl-for (decl ) #IS-NOT 
< like- table -declare t ion > ; 

= > ultimate-pat tern- table-decl-f  or 

( pattern-table-decl-f  or  (decl ) ) fOTHERWISE  it. 


//DF  counterpart-table-item-declaration-for(nx) 

” {nx//IS<simple-variable>  .u<indexed-variable>}" 

= >ultimate-item-decl-for  ( //STRING-OF-TERMINALS-OF 
( variable-name-of (nx ) ) , "looking-first-in” 
declaration-for  (nx  ) ) it. 


//DF  ultimate-item-decl-for  (nx,  "starting-at"  decl) 

"{(Jdecl$)  is-a-table-declaration  //AND  nx  //IS  //STRING}" 

=>  ultimate-item-decl-for  ( all-but-last-character-in 
(nx ) , 

"trying-next"  pattern-table-decl-for  (decl)) 

//IF  decl  //IS  <like-table-declaration> ; 

= > //FIRST  item-decl  #IN  sequence-of-items-in-table 

(decl)  #SUCH-THAT ( name-declared-in  (item-decl)  #EQW 
all-but-last-character-in  (nx))  fOTHERWISE  it. 
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#DF  generalized-assign-latest-value  (s-ref-addr,  val) 

=>  distributed-memory-assign  (val,  "to"  s-ref-addr)  #. 


#DF  distributed-memory-assign  (memval,  "to"  s-ref-addr) 

=>  segmented-assignment-of  (memval,  "using" 

f ield-descriptor-sequence-implied-in  (s-ref  ^addr ) ) 

#. 


#DF  field-descriptor-sequence-implied-in  (s-ref-addr) 

=>  descriptor-seq-for  (nr-of-bits-in  (s-ref-addr), 
"bits-of"  s-ref-addr)  #. 


#DF  descriptor-seq-for  (bit-ct,  "bits-of"  s-ref-addr) 

=>  \ f ield-descriptor-of  (s-ref-addr)  \ #IF 

nr-of-bits-in-f ield-f rom  (s-ref-addr)  = bit-ct; 

=>  \ ( $f ield-descriptor-of  (s-ref-addr)  , "with" 
bit-ct$)  replacing-f Id-length  \ (iflF 
nr-of-bits-in-f ield-f rom  (s-ref-addr)  > bit-ct; 

=>  \ f ield-descriptor-of  (s-ref-addr)  \ #CS 
descriptor-seq-for  (bit-ct  - 

nr-of-bits-in-f ield-from  (s-ref-addr)  , "bits-of" 

( $s-ref-addr$)  ad justed-to-next-f ield  ) fOTHERWISE  #. 


#DF  ad justed-to-next-f ield  (s-ref-addr) 

=>  ($  ($  s-ref-addr,  "with" 

successor-f ield-descriptor-of  (s-ref-addr)  $) 
replacing-field-descriptor,  "and"  (nr-of-bits-in 
(s-ref-addr)  - nr-of-bits-in-f ield-f rom  (s-ref-addr) 
) $)  replacing-nr-of-bits  #. 


#DF  successor-f ield-descriptor-of  (s-ref-addr) 

=>  build-field-descriptor  (word-address-f rom 
(s-ref-addr)  , next-f ield-f irst-bit-from 
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I (s-ref-addr ) , nr-of-bits-in-next-f ield-from 

I (s-ref-addr)  ) #IF  next-f ield-f irst-bit-f rom 

1 (s-ref-addr)  + nr-of-bits-in-next-f ield-f rom 

(s-ref-addr)  <=  bits-per-word ; 

=>  build-field-descriptor  (next-word-address-from 
(s-ref-addr)  , first-f ield-f irst-bit-from 
(s-ref-addr)  , nr-of-bits-in-next-f ield-f rom 
(s-ref-addr)  ) #OTHERWISE  if. 


ifDF  next-f  ield-f  irst-bit-from  (s-ref-addr) 

=>  f ield-f irst-bit-f rom  (s-ref-addr)  + 

bits-between-f ield-f irst-bits-f rom  (s-ref-addr)  #. 


ifDF  next-word-address-from  (s-ref-addr) 

=>  word-address-f rom  (s-ref-addr)  + 

words-between-f ields-f rom  (s-ref-addr)  #. 


#DF  segmented-assignment-of  (memval,  "using”  fdseq) 

=>  sequential-assignment-of  ( seq-of-value-chunks-f rom 
(memval,  "using"  fdseq)  , "to-f Ids-described-in" 
fdseq)  #. 


r #PR0C-DF  sequential-assignment-of  (valseq, 

"to-f Ids -described -in" 
fdseq) 

#BEGIN 

//FOR-ALL  i : 1 <=  i <=  ^LENGTH  (fdseq)  #D0  //COMPUTE! 
assign-to-f ield  ( i#TH-ELEMENT-IN  fdseq,  "the-value"  i 
//TH-ELEMENT-IN  valseq) 

//RETURN-WITH-VALUE!  #NIL 

//END  #. 
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(fld-desc),  "the-value"  splice  (val,  "into” 
latest-memory-value  (word-address-of  (fld-desc)), 
"at"  field-first-bit-of  (fld-desc)))#. 


#DF  splice  (newval,  "into"  wordval,  "at-bit"  n) 

=>  (#LEFT  n #CHARACTERS-OF  wordval)  #CW  newval  #CW  ( 
#RIGHT  (bits-per-word  - (#LENGTH  (newval)+n)) 
#CHARACTERS-OF  wordval  ) #, 


#DF  seq-of-value-chunks-f rom  (memval,  "using"  fdseq) 

=>  #NILSEQ  #IF  memval  #EQW  #NIL  #0R  fdseq  #EQS  #NILSEQ; 

=>  \ #LEFT  nr-of-bits-in-f ield-of  (first-descriptor-in 
(fdseq))  #CHARACTERS-OF  memval  \ #CS 

seq-of-value-chunks-f rom  (#RIGHT  (#LENGTH  (memval)  - 
nr-of-bits-in-f ield-of  ( f irst-descriptor-in 
(fdseq)))  #CHARACTERS-OF  memval, 
all-but-f irst-element-in  (fdseq))  fOTHERWISE#. 


#DF  first-descriptor-in  (fdseq) 

=>  #FIRST-ELEMENT-IN  (fdseq)  #. 


#DF  latest-memory-value  (word-addr) 

=>  implement at ion-initial-value-at 

(uniform-notation-for  (word-addr))  #IF  #LATEST-VALUE 
(unif orm-notation-for  (word-addr))  #IS  #UNDEFINED; 

=>  #LATEST-VALUE  (uniform-notation-for  (word-addr)) 
#0THERWISE#. 


#DF  assign-latest-memory-value  (word-addr,  val) 

=>  #ASSIGN-LATEST-VALUE  (uniform-notation-for 
(word-addr),  "receives"  val)  #. 


#DF  implementation-initial-value-at  (word-addr) 
=>  ($  bits-per-word$)  zeroes  #. 


===z:z==========  genassgn-2H9  ======================= 


r 
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#DF  uniform-notation-for  ( x ) 

= > ICONVERT  10  ( X ) #IF  X #IS  //INTEGER; 
r>  X //OTHERWISE  #. 


//DF  generalized-latest-value  (s-ref-addr) 

*'{  ( $s-ref-addr$ ) is-standard-ref erence-address } ” 

=>  collected-memory-value  (s-ref-addr)  #IF 

nr-of-bits-in-f ield-from  (s-ref-addr)  #N=  0; 

=>  'O'  #0THERWISE  #. 


//DF  collected-memory-value  (s-ref-addr) 

=>  value-collected-using 

( field -descript or-sequence-implied-in  (s-ref -addr ) ) 

//. 


//DF  value-collected-using  (fdseq) 

= > #NIL  #IF  fdseq  //EQ  //NILSEQ; 

=>  value-of-f ield-described-by  (first-descriptor-in 
(fdseq))  //CW  value-collected-using 
(all-but-f irst-element-in  (fdseq))  #0THERWISE  //. 


#DF  value-of-f ield-described-by  (fld-desc) 

= > //LEFT  nr-of-bits-in-f ield-of  (fld-desc) 
//CHARACTERS-OF  //RIGHT  ( bits-per-word  - 
field-first-bit-of  (fld-desc))  #CHARACTERS-OF 
latest-memory-value  (word-address-of  (fld-desc))  #. 


//DF  bit-addr-built-from  (a,b) 

"{0<  = a //AND  0<  = b #AND  b < bits-per-word\  " =>  \a,b\//. 
#DF  word-part  (bitaddr)  "{  ($bitaddr$)  is-bit-address\ 
" =>  #FIRST-ELEMENT-IN  bitaddr  #.  //DF  bit-part 
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(bitaddr)  " { ( $bitaddr$)  is-bit-address} " 
=>  1 #TH-ELEMENT-IN  bitaddr  #. 


:=  genassgn-251  ===: 


J 
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#DF  build-field-descriptor  (wd-addr,  fid-bit,  fid-size) 
=>  \ wd-addr,  fid-bit,  fid-size  \ #. 

#DF  word-address-of  (fld-desc) 

=>  #FIRST-ELEMENT-IN  fld-desc  #. 

#DF  field-f irst-bit-of  (fld-desc) 

=>  2 #TH-ELEMENT-IN  fld-desc  #. 


#DF  nr-of-bits-in-f ield-of  (fld-desc) 
=>  3 #TH-ELEMENT-IN  fld-desc  #. 


#DF  replacing-word-address  (fld-desc,  new-addr) 

=>  build-field-descriptor  (new-addr,  field-f irst-bit-of 
(fld-desc),  nr-of-bits-in-f ield-of  (fld-desc))  #. 


#DF  replacing-field-first-bit  (fld-desc,  new-first-bit) 

=>  build-field-descriptor  (word-address-of  (fid  desc), 
new-first-bit,  nr-of-bits-in-f ield-of  (fld-desc))  #. 

#DF  replacing-f Id-length  ( fld-desc , new-length ) 

=>  build-field-descriptor  (word-address-of  (fld-desc), 
field-f irst-bit-of  (fld-desc),  new-length)  #. 


#DF  create-standard-reference-address  J 

(fld-desc,nxt-fld-desc,nr-flds)  j 

=>  \ fld-desc,  nxt-f Id-desc , nr-flds  \ j 

i 

i 

#DF  f ield-descriptor-of  (s-ref-addr)  j 
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=>  #FIRST-ELEMENT-IN  s-ref-addr  #. 


#DF  next-f ield-descriptor-of  (s-ref-addr) 
=>  2 #TH-ELEMENT-IN  s-ref-addr  #. 


#DF  nr-of-bits-in  (s-ref-addr) 

=>  3 #TH-ELEMENT-IN  s-ref-addr  #. 


#DF  replacing-field-descriptor  (s-ref-addr,  new-desc) 

=>  create-standard-reference-address  (new-desc, 

next-f ield-descriptor-of  (s-ref-addr),  nr-of-bits-in 
(s-ref-addr))  #. 


#DF  replacing-next-field-descriptor  (s-ref-addr,  new-desc) 

=>  create-standard-reference-address 

(field-descriptor-of  (s-ref-addr),  new-desc, 
nr-of-bits-in  (s-ref-addr))  #. 


#DF  replacing-nr-of-bits  (s-ref-addr,  new-count) 

=>  Great e-standard -reference-ad dress 
(field-descriptor-of  (s-ref-addr) , 

next-f ield-descriptor-of  (s-ref-addr),  new-count)  #. 


#DF  word-address-from  (s-ref-addr) 

=>  word-address-of  ( field-descriptor-of (s-ref-addr ) ) 

//. 


#DF  field-f irst-bit-f rom  (s-ref-addr) 

=>  field-f irst-bit-of  ( field-descriptor-of 
(s-ref-addr))  U. 


//DF  nr-of-bits-in-f ield-from  (s-ref-addr) 
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=>  nr-of-bits-in-f ield-of  ( f ield-descriptor-of 
(s-ref-addr) ) #. 


#DF  bits-between-field-f irst-bits-from  (s->ref-addr ) 

=>  bits-between-f ield-f irst-bits-of 

(next-field-descriptor-of  (s-ref-addr)) 


; #DF  first-f ield-f irst-bit-from  (s-ref-addr) 

=>  first-field-f irst-bit-of  (next-field-descriptor-of 
I (s-ref-addr))  #. 


#DF  words-between-f ields-from  (s-ref-addr) 

=>  words-between-f ields-of  (next-field-descriptor-of 
(s-ref-addr))  #. 


[ #DF  nr-of-bits-in-next-f ield-f rom  (s-ref-addr) 

r 

i 

j =>  nr-of-bits-in-next-f ield-of 

[ (next-field-descriptor-of  (s-ref-addr)  ) #. 


)!*DF  build-next-field-descriptor  (delta-bits,  first-f  Id-bit , 
delta-words,  bits-per-fld  ) 

=>  \delta-bits,  fi  st-fld-bit,  delta-words, 
bits-per-f ld\  #. 


#DF  bits-between-f ield-f irst-bits-of  ( nxt-f Id-desc ) 
=>  #FIRST-ELEMENT-IN  nxt-fld-desc  #. 


#DF  first-field-first-bit-of  (nxt-fld-desc) 
=>  2 #TH-ELEMENT-IN  (nxt-fld-desc)  #, 


//DF  words-between-f  ields-of  (nxt-fld-desc) 
=>  3 #TH-ELEMENT-IN  nxt-fld-desc  9. 
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#DF  nr-of-bits-in-next-f ield-of  (nxt-f Id-desc ) 

= > //TH-ELEMENT-IN  nxt-f Id-desc  #. 

" y/DF  replacing-field-distance  (nxt-f  Id-desc , 
new-distance ) =>  build-next-field-descriptor 
(new-distance , f irst-f ield-f irst-bit-of  ( nxt-f Id-desc ) , 
words-between-f ields-of  ( nxt-f Id-desc  ) , 
nr-of-bits-in-next-f ield-of  ( nxt-f Id-desc ) ) #.  #DF 
replacing-first-field-bit  (nxt-f Id-desc , new-fst-bit) 

=>  build-next-field-descriptor 

( bit s-between-f ield-f irst-bits-of  (nxt-fld-desc), 
new-fst-bit,  words-between-f ields-of  (nxt-fld-desc), 
nr-of-bits-in-next-f ield-of  (nxt-fld-desc)  ) #.  " 


#DF  replacing-word-increment  (nxt-fld-desc,  new-wd-inc) 

=>  build-next-field-descriptor 

( bits-between-f ield-f irst-bits-of  (nxt-fld-desc) , 
f irst-f ield-f irst-bit-of  (nxt-fld-desc),  new-wd-inc, 
nr-of-bits-in-next-f  ield-of  (nxt-fld-desc)  ) it. 


#DF  standard-reference-address-of  (nx) 

" { ($nx$)  is-a-variable  //OR  nx  //IS  <name>  //U 

<loop-variable> } " 

=>  indexed-standard-reference-address  ( 

variable-name-of  (nx)  , "using"  index-values 
( index-list-of  (nx)))  /*IF  nx  //IS  <indexed-variable> ; 

= > simple-standard-reference-address  (nx)  //IF  nx  //IS 
<simple-variable>; 

= > entry-standard-reference-address  (nx)  //IF  nx  //IS 
<entry-variable>; 

= > special-int-var-reference-address  (nx)  //IF  nx  /'IS 
<special-integer-variable>; 

= > special-f ix-var-reference-address  (nx)  //IF  nx  //IS 
< spec ial -f ixed -variable > ; 

=>  special-literal-var-reference-address  (nx)  #IF  nx 


1 

n 
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#IS  <special-literal-variable> ; 

=>  special-boolean-var-ref erence-address  (nx)  #IF  nx 
#IS  <special-boolean-variable> ; 

=>  simple-standard-reference-address  (nx)  #IF  nx  #IS 
<name>  #U  <loop-variable>  #. 


#DF  indexed-standard-reference-address  (var,  index-vals) 

"{var  #IS  <name>  #AND  #FOR-ALL  x #IN  index-vals 

#IT-IS-TRUE-THAT  (x>=0)}" 

=>  ($  indexed-standard-relative-address  (var, 
index-vals),  "with”  word-address-f rom 
(parent-table-standard-reference-address  (var) )$) 
added-to-f irst-word-address  #IF  ($var$) 
is-array-ref erence ; 

=>  ($  indexed-standard-relative-address  (var, 
index-vals),  "with"  word-address-f rom 
(parent-table-standard-reference-address  (var))  + 
one-for-nent-word$ ) added-to-f irst-word-address 
^OTHERWISE  #. 


//DF  is-call-by -name-table-item-reference  (nm) 

=>  ($nm$)  is-that-of-a-call-by-name-parameter  #IF 

($nm$)  is-array-ref erence ; t 

=>  ($  name-declared-in  ( table-implicitly-ref erenced-by 
(nm))  $)  is-that-of-a-call-by-name-parameter 
#OTHERWISE 


#DF  cal 1 -by-name- table-reference-address  ( var ) 

=>  ($  basic-addr  (var),  "with" 

($ generalized-latest -value 

(simple-standard-reference-address  (var))  $) 
convert ed-to-standard-form$) 
replacing-first-word-address  #IF  ($var$) 
is-array-reference ; 

=>  ($  basic-addr  (name-declared-in 

( table-implicitly-referenced-by  (var))  ),  "with" 
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word-add ress-from  (simple -standard -reference -ad dr ess 
( name -declared -in  ( table-imp lie it ly -referenced -by 
(var))))$)  replacing-first-word-address  ^OTHERWISE 


#DF  parent-table-standard-reference-address  (var) 

"{var  #IS  <name>}” 

=>  call-by-name-table-reference-address  (var)  #IF 
( $var$ ) is-ca 11 -by-name- table -item-reference ; 

=>  simple-standard-reference-address  (var)  #OTHERWISE 


#DF  indexed-standard-relative-address  ( var , index-vals  ) 

*' { var  #IS  <name>  #F0R-ALL  x #IN  index-vals 

#IT-IS-TRUE-THAT  (x>=0)}" 

=>  indexed-ordinary-item-relative-address  (var, 

index-vals)  #IF  ($var$)  is-ordinary-item-reference ; 

=>  indexed-def ined-item-relative-address  (var, 
index-vals)  #IF  ($var$) 
is-defined -entry- item-reference ; 

=>  indexed-string-item-relative-address  (var, 

index-vals)  #IF  ($var$)  is-string-item-ref erence ; 

=>  indexed -array-element -relative-address 

( var , index-vals ) #IF  ($var$)  is-array-ref erence 


#DF  is-ordinary-item-reference  (nx) 

=>  detailed-declaration-for  (nx) 

#IS<ordinary-table-item-declaration>  #. 


#DF  indexed-ordinary-item-relative-address  ( var , index-vals ) 

"{  ($var$)  is-ordinary-item-reference  #AND  var  #IS 
<name> } ” 

=>  ($  ord-item-entry-relative-addr  (var),  "by” 
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//FIRST-ELEMENT-IN  index-vals,  "and" 
number-of-entries-of  (table-implicitly-referenced-by 
(var))$)  modif ied-for-parallel-table  #IF  ($ 
table-implicitly-referenced-by (var)$) 
is -parallel-table; 

:>  ($ord-item-entry-relative-addr(var ) , "by" 
#FIRST-ELEMENT-IN  index-vals,  "and" 
number-of-words-per-entry-in 
(table-implicitly-referenced-by  (var)  )$) 
modif ied-for-serial-table  ^OTHERWISE  #. 


#DF  is-parallel-table  (dec) 

= > structure-spec-of  (dec)  //EQW  'p'  #. 


#DF  structure-spec-of  (dec) 

=>  like-table-structure-spec  (dec)  #IF  dec  #IS 
<1 ik e-table -declarati on >; 

= > //STRING-OF-TERMINALS-OF 

(optional-structure-specif ication-of  (dec))  //IF  dec 
//IS  <ordinary-table-declaration>  //U 
<defined-entry-table-declaration>  //. 


//DF  like-table-structure-spec  (dec) 

"{dec  //IS  <1  ike-table-declaration> } " 

= > structure-spec-of  (pattern-table-decl-for  (dec))  //IF 
( //STRING-OF-TERMINALS-OF 

(optional-structure-specif ication-of  (dec))  ) fiEQV 
//NIL; 

= > //STRING-OF-TERMINALS-OF 

(optional-structure-specification-of  (dec) ) 
//OTHERWISF  //. 


//DF  optional-structure-specif  ication-of  (dec) 

"(dec  iflS  <like-table-declaration>  //U 
<de f ined -ent ry -table -declaration>  //U 
<ordinary-table-declaration>}" 
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=>  #SEG  7 #0F  dec  #. 


#DF  modif ied-for-parallel-table  (s-ref-addr,  ix,  nr-entries) 

”{($  s-ref-addr$)  is-entry-relative-addr  #AND  ix  >=0 

#AND  nr-entries  > 0}" 

=>  ($($  s-ref-addr,  "with"  ix$) 

replacing-f irst-word-address , "and"  nr-entries  • 
words-between-fie Ids- from  (s-ref -addr )$) 
replacing-next-word-increment  #. 


#DF  replacing-next-word-increment  (s-ref-addr,  n) 

=>  ($  s-ref-addr,  "with"  ($  next-f ield-descriptor-of 
(s-ref-addr),  "with"  n$)  replacing-word-increment$ ) 
rep lacing-next-field -descrip tor  # . 


#DF  modif ied-for-serial-table  (s-ref-addr,  ix, 
wds-per-entry ) 

" { ( $s-ref-addr$ ) is-entry-relative-addr  #AND  ix  >=0 
#AND  wds-per-entry  > 0}" 

=>  ( $s-ref-addr , "with"  ix  * wds-per-entry$ ) 
replacing-first-word-address  #. 


ifdF  ord-item-entry-relative-addr  (var) 

"{($var$)  is-ordinary-item-reference  #AND  var  #IS 

<name> } " 

=>  dense-packed-item-entry-relative-addr  (var)  #IF 
($table-implicitly-referenced-by  (var)$) 
is-densely-packed ; 

=>  med-packed-item-entry-relative-addr  (var)  #IF 
( $ table -implicitly-referenced -by  (var ) $) 
is-med-packed ; 

=>  unpacked-item-entry-relative-addr  (var)  #IF 

( $table-implicitly-referenced-by  (var)$)  is-unpacked 
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#DF  is-unpacked  (dec) 

=>  packing-spec-of  (dec)  #EQW  'N'  #. 


#DF  packing-spec-of  (dec) 

=>  like-table-packing-spec  (dec)  #IF  dec  #IS 
<like-table-declaration> ; 

=>  ordinary-table-packing-spec  (dec)  #IF  dec  #IS 
<ordinary-table-declaration> ; 

=>  def ined-entry-table-packing-spec  (dec)  #IF  dec  #IS 
<def ined -entry- table-declarat ion > #. 


#DF  ordinary-table-packing-spec  (dec) 

=>  'N'  #IF  ( #STRING-OF-TERMINALS-OF 

(optional-packing-specif ication-of  (dec))  ) #EQW 
#NIL; 

=>  #STRING-OF-TERMINALS-OF 

( optional-packing-specif ication-of  (dec))  #OTHERWISE 

#. 


#DF  def ined-entry-table-packing-spec  (dec)  » 

( 

=>  'D'  #IF  ( #STRING-OF-TERMINALS-OF 

(optional-packing-specification-of  (dec))  ) #E0W 
#NIL; 

=>  #STRING-OF-TERMINALS-OF 

(optional-packing-specif ication-of  (dec))  //OTHERWISE 

//. 


#DF  like-table-packing-spec  (dec) 

=>  packing-spec-of  ( pattern-table-decl-f or  (dec)  ) #IF 
( //STRING-OF-TERMINALS-OF 

(optional-packing-specif ication-of  (dec)  ) ) #E0W 
//NIL; 
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( 

=>  #STRING-OF-TERMINALS-OF 

I (optional-packing-specif ication-of  (dec))  fOTHERWISE 


f 


#DF  unpacked-item-entry-relative-addr  (var) 

"{  ($var$)  is-ordinary-item-reference  }” 

=>  entry-rel -add r-of-unpacked-alloca ted -name 

(name-declared-in  (detailed-declaration-for  (var)  ) 

) #IF  ($name-declared-in  (detailed-declaration-for 
(var)  ) $)  is-actually-allocated-in-entry ; 

=>  overlay-element-rel-addr  ( f irst-overlay-mention-of 
(name-declared-in  (detailed-declaration-for  (var)  ) 

) ) #IF  ($name-declared-in  (detailed-declaration-for 
(var)  ) $)  is-mentioned-in-a-subordinate-ovly-dec  #. 


#DF  f irst-overlay-mention-of  (nm) 

"{  ($nm$)  is-mentioned-in-a-subordinate-ovly-dec  }" 

=>  first-mention-of  (nm,  "in"  #FIRST-ELEMENT-IN 

seq-of-subord-overlay-declarations-mentioning  (nm)  ) 

#. 


#DF  is-raed-packed  (dec) 

=>  packing-spec-of  (dec)  #EQW  'M'  #. 


#DF  med-packed-item-entry-relative-addr  (var) 

"{  ($var$)  is-ordinary-item-reference  }" 

=>  entry-rel-addr-of-med-packed-al located -name 

(name-declared-in  (detailed-declaration-for  (var)  ) 

) #IF  ($name-declared-in  (detailed-declaration-for 
(var)  ) $)  is-actually-allocated-in-entry; 

=>  overlay-element-med-packed-rel-addr 

( f irst-overlay-mention-of  (name-declared-in 
(detailed-declaration-for  (var)  ) ) ) #IF 
( $name-declared-in  (detailed-declaration-for  (var)  ) 
$)  is-mentioned-in-a-subordinate-ovly-dec  #. 
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#DF  is-densely-packed  (dec) 

”{  ($dec$)  is-table-declaration  }" 

=>  packing-spec-of  (dec)  #EQW  'D'  #. 


#DF  dense-packed-item-entry-relative-addr  (var) 

"{  ($var$)  is-ordinary-item-reference  }" 

=>  en t ry -r e 1 -add r-of-dense-al located -name 

(name-declared-in  (detailed-declaration-for  (var)  ) 

) #IF  ( $name-declared-in  (detailed-declaration-for 
(var)  ) $)  is-actually-allocated-in-entry ; 

=>  over lay-element -den se-rel -addr 

( fir St -over lay -mention -of  (name-declared -in 
(detailed-declaration-for  (var)  ) ) ) #IF 
( $name-declared-in  (detailed-declaration-for  (var)  ) 
$)  is-mentioned-in-a-subordinate-ovly-dec  #. 


#DF  is-string-item-reference  (nx) 

=>  detailed-declaration-for  (nx)  #IS 
<string-item-declaration>  #. 


#DF  indexed-string-item-relative-address  (var,  index-vals) 

=>  ($entry-rel-addr-of-bead  ( #FIRST-ELEMENT-IN 
index-vals,  "of"  var)  , "by"  2 #TH-ELEMENT-IN 
index-vals,  "and"  number-of-words-per-entry-in 
( table-implicitly-referenced-by  (var)  ) $) 
modif ied-for-serial-table  #IF  #N0T 
( $table-implicitly-ref erenced-by  (var)  $) 
is-parallel-table  #. 


#DF  entry-rel-addr-of-bead  (n,  "of"  var) 

=>  ($basic-string-item-addr  (detailed-declaration-for 
(var)  ) , "for"  n "beads"$)  ad justed-to-nth-bead  #. 
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#DF  basic-string-item-addr  (dec) 

”{  dec  #IS  <string-item-declaration>  }” 

=>  create-standard-reference-address 

(first-bead-field-descriptor  (dec),  5 

next-bead-field-descriptor  (dec),  ] 

beads-per-word-from  (dec)  ) #.  ] 


#DF  beads-per-word-from  (dec) 

"{  dec  #IS  <string-item-declaration>  }” 
=>  #SEG  15  #0F  dec  #. 


#DF  first-bead-field-descriptor  (dec) 

"{  dec  #IS  <string-item-declaration>  }” 

=>  build-field-descriptor  (word-pos-from  (dec), 
bit-pos-from  (dec),  nr-of-bits-in-f ield-f rom 
( basic-addr-from-i tern-descriptor 
(typed-item-description-of  (dec)  ) ) ) #. 


#DF  next-bead-field-descriptor  (dec) 

"{  dec  #IS  <string-item-declaration>  }” 

=>  next-packed-bead-field-descriptor  (dec)  #IF  ($dec$) 
i s -pack ed-string-declarat ion ; 

=>  next-unpacked-bead-f ield-descriptor  (dec)  #IF 
($dec$)  is-unpacked -string-declaration ; 

=>  next-med-packed-bead-f ield-descriptor  (dec)  #IF 
($dec$)  is-med-packed-string-declaration  #. 


#DF  is-packed-string-declaration  (dec) 

"{dec  IIS  <string-item-declaration> } " 

=>  ITRUE  IIF  optional-packing-specif ication-of  (dec) 
lEQW  INIL; 

z======================  srefaddr-263  ======================= 
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=>  #TRUE  #IFF  optional-packing-specification-of  (dec) 
#EQW  ’D'  ^OTHERWISE  #. 


#DF  optional-packing-specification-of  (dec) 

"{  dec  #IS  <string-item-declaration>  #U 
<like-table-declaration>  #U 
<ordinary-table-declaration>  #U 
<def ined-entry-item-declaration> } " 

=>  #SEG  9 #OF  dec  #IF  dec  #IS  <llke-table-declaration> 
#U  <ordinary-table-declaration>  ; 

=>  #SEG  11  #0F  dec  #OTHERWISE  #. 


#DF  next-packed-bead-field-descriptor  (dec) 

"{dec  #IS  <string-item-declaration>} " 

=>  build-next-field-descriptor  ( nr-of-bits-in-f ield-of 
( first-bead-field-descriptor  (dec)  ) , 
f ield-f irst-bit-of  (f irst-bead-f ield-descriptor 
(dec)  ) , words-between-beads-f rom  (dec)  , 
beads-per-word-from  (dec)  ) #. 


#DF  words-between-beads-f rom  (dec) 

"(dec  #IS  <string-item-declaration>}" 
=>  #SEG  13  #0F  dec  #. 


#DF  is-unpacked-string-declaration  (dec) 

"(dec  #IS  <string-item-declaration>}" 

=>  #TRUE  #IFF  optional-packing-specif ication-of  (dec) 
#EQW  *N'  #. 


#DF  next-unpacked-bead-f ield-descriptor  (dec) 

"{dec  #IS  <string-item-declaration> } " 

=>  build-next-field-descriptor  ( bits-per-word , 


i 


srefaddr-264 


Page  srefaddr-265 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Project 
Standard  Ref  Addr 


field-first-bit-of  ( first-bead -field -descriptor 
(dec)),  words-between-beads-from  (dec),  1)  #. 


#DF  is-med-packed-string-declaration  (dec) 

"{dec  #IS  <string-item-declaration>}" 

=>  #TRUE  #IFF  optional-packing-specif ication-of  (dec) 

#EQW  »M'  #. 


#DF  next-med-packed-bead-f ield-descriptor  (dec) 

"{dec  #IS  <string-item-declaration>} " 

=>  build-next-field-descriptor  (bits-per-byte, 

field-first-bit-of  (first-bead-f ield-descriptor 
(dec)),  words-between-beads-from  (dec), 
beads-per-word-from  (dec))  #. 


#DF  ad justed-to-nth-bead  (s-ref-addr , n ) 

"{n>  = 0 #AND  ($s-ref-addr$)  is-bead-reference-address } " 
=>s-ref-addr  #IF  n=0; 

=>  ($  ($s-ref-addr$)  ad justed-to-next-bead , "to"  n - 
1$)  ad justed-to-nth-bead  #OTHERWISE  #. 


#DF  ad justed-to-next-bead  (s-ref-addr) 

=>  ($($  s-ref-addr,  "with" 

successor-field -bead-descrip tor-of  (s-ref -addr )$) 
replacing-field-descriptor,  "and" 
successor-next-field-bead-descrip tor-of 
(s-ref-addr)$)  replacing-next-field-descriptor  #. 


#DF  successor-f ield-bead-descriptor-of  (s-ref-addr) 

=>  build-field-descriptor  ( word-address-f rom 
(s-ref-addr) , next-f ield-f irst-bit-f rom 
(s-ref-addr),  nr-of-bits-in-f ield-of  (s-ref-addr)) 
#IF  nr-of-beads-left-in-word-from  (s-ref-addr)  >1; 
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=>  build-field-descriptor  (next-word-address-f rom 
(s-ref-addr) , first-field-first-bit-from 
(s-ref-addr ) , nr-of-bits-in-f ield-of  (s-ref-addr)) 
#OTHERWISE  #. 


#DF  successor-next-f ield-bead-descriptor-of  (s-ref-addr) 

=>  next-field-descriptor-of  (s-ref-addr)  #IF 

nr-of-beads-lef t-in-word-f rom  (s-ref-addr)  >1; 

=>  ($next-f ield-descriptor-of  (s-ref-addr),  "with" 
nr-of-beads-per-word-of  (s-ref-addr )$) 
replacing-nr-of-beads-left-in-word  #OTHERWISE  #. 


#DF  replacing-nr-of-beads-left-in-word  (s-ref-addr ,n) 

=>  ($s-ref-addr , "with"  ($  next-field-descriptor-of 
(s-ref-addr),  "with"  n$)  replacing-nr-of-beads-left 
$)  replacing-next-field-descriptor  #. 


#DF  replacing-nr-of-beads-left  (nxt-f Id-desc , n) 

=>  build-next-f ield-descriptor  ( 

bits-between-f ield-f irst-bits-of  (nxt-f Id-desc ) , 
f irst-f ield-f irst-bit-of  (nxt-f Id-desc ) , 
words-between-f ields-of  (nxt-f Id-desc ) , n)  #. 


#DF  nr-of-beads-per-word-of  (s-ref-addr) 
=>  3 #TH-ELEMENT-IN  (s-ref-addr)  #. 


IDF  nr-of-beads-lef t-in-word-f rom  (s-ref-addr) 

=>  nr-of-beads-left-in-word-of 

(next-field-descriptor-of  (s-ref-addr))  #. 


IDF  nr-of-beads-left-in-word-of  (nxt-f Id-desc ) 
=>  4 ITH-ELEMENT-IN  nxt-fld-desc  I. 


IDF  is-defined-entry-item-reference  (nx) 
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=>  detailed-declaration-for  (nx)  #IS  \ 

<def ined-entry-item-declaration>  #.  j 


//DF  indexed-def ined-item-relative-address  (var,  index-vals) 

”{  ($var$)  is-defined-entry-item-reference}" 

=>  ( $def ined-item-entry-relative-addr  (var),  "by” 
#FIRST-ELEMENT-IN  (index-vals)  , "and" 
number-of-en tries -of  ( table-implicitly-referenced-by 
(var))$)  modif ied-f or-parallel-table  #IF 
( $table-implicitly-referenced-by  (var)  $) 
is-parallel -table ; 

s>  ($def ined-item-entry-relative-addr  (var)  , "by" 
#FIRST-ELEMENT-IN  (index-vals)  , "and" 
number-of-words-per-entry-in 
(table-implicitly-referenced-by  (var))  $) 
modified-for-serial-table  #OTHERWISE  #. 


#DF  defined-item-entry-relative-addr  (var) 

"{  ($var$)  is-def ined-entry-item-reference } " 

=>  shif ted-ref-addr  (basic-addr-from-item-descriptor 
( item-descript ion -of  (detailed-declaration-for 
(var))),  "to"  bit-addr-of-def ined-item-of 
(detailed-declaration-for  (var)))  #. 


#DF  bit-addr-of-def ined-item-of  (dec) 

"{dec  #IS  <def ined-entry-item-declaration>} " 

=>  bit-addr-built-from  (word-pos-f rom  (dec), 
bit-pos-from  (dec))  #. 


#DF  word-pos-f rom  (dec) 

"(dec  #IS  <string-item-declaration>  #U 
<def ined-entry-item-declaration>} " 

=>  ICONVERT  10  (#STRING-OF-TERMINALS-OF  ( #SEG  7 #0F 
dec))  #. 
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#DF  bit-pos-from  (dec) 

"{dec  #IS  <string-item-declaration>  #U 
<def ined-entry-item-declaration>}" 

=>  #C0NVERT  10  ( #STRING-0F-TERMINALS-0F  ( #SEG  9 #0F 
dec))  #. 


#DF  indexed-array-element-relative-address  (var, index-vals) 

=>  indexed-boolean-array-elt-addr  (var,  index-vals)  #IF 
type  (var)  #EQW  'boolean'; 

=>  ($basic-array-eleraent-addr  (detailed-declaration-for 
(var))  , "with"  index-offset  (var,  "by"  index-vals) 
$)  replacing-first-word-address  fOTHERWISE  #. 


#DF  index-offset  (var , index-vals ) 

=>  index-map  (index-vals,  "wrt"  dimension-bounds-from 
(detailed-declaration-for  (var)))  #. 


IDF  index-map  (ix-list,  "wrt"  bounds-list) 

"{  IFOR-ALL  X IIN  ix-list  ICS  bounds-list 
#IT-IS-TRUE-THAT  (x  IIS  lINTEGER)  lAND  ILENGTH 
(ix-list)  = ILENGTH  (bounds-list)}" 

=>  0 IIF  ILENGTH  (ix-list)  =0; 

=>  (ILAST-ELEMENT-IN  ix-list)  • dimension-product 

(all-but-last-element-in  (bounds-list))  + index-map 
(all-but-last-element-in  (ix-list),  "wrt" 
all-but-last-eleraent-in  (bounds-list)  ) lOTHERWISE 

I. 


IDF  all-but-last-element-in  (seq) 

"{  seq  IIS  ISEQUENCE  lAND  ILENGTH  (seq)  > 0 }" 

=>  IINITIAL-SUBSEQ-OF-LENGTH  (ILENGTH  (seq)  - 1)  lOF 
seq  I . 
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#DF  dimension-product  ( bounds-list ) 

”{  #F0R-ALL  X #IN  bounds-list  #IT-IS-TRUE-THAT  (x  #IS 
//INTEGER)  }" 

=>  1 #IF  #LENGTH  (bounds-list)  =0; 

= > (1  + (//FIRST-ELEMENT-IN  bounds-list)  ) • 
dimens ion -product  (all-but-f irst -element -in 
(bounds-list))  #OTHERWISE  //. 


//DF  indexed-boolean-array-elt-addr  ( var , index-vals ) 

"{  ($var$)  is-array-reference  #AND  type  (var)  //EQW 
' boolean'  }" 

= > ($( $basic-addr-of-boolean-array-column-from 

(detailed-declaration-for  (var))  , "with"index-map 
(all-but-f irst-element-in  (index-vals)  , "wrt" 
all-but-f irst -element-in  (dimens ion-bounds- from 
(detailed-declaration-for  (var))))  $) 
replacing-first-word-address,  "at"  //FIRST-ELEMENT-IN 
index-vals$)  taken-as-the-boolean-array-elt-posn  #. 


//DF  taken-as-the-boolean-array-elt-posn  (s-ref-addr,  n) 
" {n>  = o } " 

= > ($  ($  ( $s-ref-addr , "to"n$) 

adjusted-reference-address,  "with"  1$) 
replacing-nr-of-bits , "and"  1$) 
replacing-bits-in-f  ield  // . 


//DF  replacing-bits-in-f  ield  (s-ref-addr,  n) 

=>  ( $s-ref-addr , "with"  ($  f ield-descriptor-of 
(s-ref-addr),  "with"n$)  replacing-f ld-length$ ) 
replacing-field-descriptor  #. 


//DF  simple-standard-reference-address  (nx) 

"{nx  #IS  <slmple-variable>  #U  <name>  #U 
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=>  ref-addr-of-allocating-instance-of  (nx)  #. 


#DF  ref-addr-of-allocating-instance-of  (nx) 

"{nx  #IS  <simple-variable>  #U  <name>  #U 

<loop-variable>} " 

=>  allocatlng-instance-reference-addr-of  (nx,  "in" 
addressing-unit-containing  (nx))  #. 

#DF  allooating-instance-reference-addr-of  (nx,  "in"  adunit) 

"{  nx  #IS<simple-variable>  .u<name>  #U  <loop-variable> 

#AND  ($adunit$)  is-addressing-unit } " 

=>  ($relative-addr  (allocating-instance-of  (nx,  "in" 
adunit)),  "with"  first-word-addr-of-addressing-unit 
(add res sing-unit -containing  (allocating-instance-of 
(nx,  "in"  adunit) ))$)  added-to-f irst-word-address  #. 


#DF  allocating-instance-of  (nx,  "in"  adunit) 

"(nx  #IS  <simple-variable>  #U  <nanie>  #U  <loop-variable> 

#AND  ($adunit$)  is-addressing-unit}" 

= > first-allocated-naine-for  (nx,  "in"  adunit)  #IF  ($nx, 
"in"  adunit$)  refers-to-an-allocated-name ; 

=>  allocating-instance-of  (nx,  "in" 

addressing-unit-containing  (declaration-for  (nx))) 
#IF  ($nx$)  references-a-common-variable  #AND  ($nx$) 
is-not-in-common ; 

=>  allocating-overlay-instance-of  (nx)  #IF  ($nx$) 
references-an-over lay-variable  # . 


#DF  first-allocated-name-for  (nx,  "in"  adunit) 

"{  ($adunit$)  is-an-addressing-unit  nx  #IS 
<simple-variable>  #U  <name>  #U  <loop-variable>}" 

=>  #FIRST  alloc-narae  #IN  sequence-of-allocated-names-in 
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(adunit)  #SUCH-THAT  (($nx,  "and”  alloc-name$) 
designate-the-same-allocated-variable ) # . 


#DF  designate-the-same-allocated-variable  (nx,  "and" 
alloc-name ) 

"{nx  #IS  <simple-variable>  #U  <name>  #U 

<loop-variable>} " 

=>  #STRING-OF-TERMINALS-OF  (nx)  #EQW 

#STRING-OF-TERMINALS-OF  (alloc-name)  #IF  nx  //IS 
<loop-variable>; 

=>  iraplied-declaration-for  (alloc-name)  #EQN 
declaration-for  (nx)  #IF  ( $alloc-name$ ) 
imp lie itly-first -ref ers-to-a- table ; 

=>  #TRUE  #IFF  #STRING-OF-TERMINALS-OF  (nx)  #EQW 
//STRING-OF-TERMINALS-OF  (alloc-name)  #AND 
declaration-for  (alloc-name)  #EQN  declaration-for 
(nx)  //OTHERWISE  #. 


//DF  refers-to-an-allocated-name  (nx,  "in"  adunit) 

"{nx  //IS  <simple-variable>  #U  <name>  #U  <loop-variable> 

//AND  ($adunit$)  is-addressing-unit } " 

= > //TRUE  //IFF  #THERE-EXISTS  alloc-name  #IN 

sequence-of-allocated-names-in  (adunit)  #SUCH-THAT  ( 
($  nx,  "and"  alloc-name$) 
designate-the-same-al located -variable ) # . 


#DF  allocating-overlay-instance-of  (nx) 

"{  ($nx$)  ref erences-an-overlay~variable  #AND  nx  //IS 
<simple-varj.able>  #U  <name>  #AND  ($adunit$) 
is-addressing-unit}" 

=>  f irst-mention-of  (nx,  "in"  f irst-ovly-dec-mentioning 
(nx) ) #. 


r 1 rst-ovly-dec-mentioning  (nx) 

” ‘ f|nx$)  references-an-overlay-variable } " 
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=>  #FIRST-ELEMENT-IN 

sequence-of-overlay-declarations-mentioning  (nx)  #. 


#DF  first-mention-of  (nx,  "in"  ovly-dec) 

i 

"{ovly-dec  #IS  <independent-overlay-declaration> } " | 

=>  #FIRST  ovly-name  #IN  ( #SEQUENCE-OF  <name>  #IN  I 

ovly-dec)  #SUCH-THAT  ( ($nx,  ovly-dec$)  match)  #. 


#DF  relative-addr  (nx) 

"{nx  #IS  <name>  #U  <loop-variable>}" 

=>  relative-addr-of-allocated-name  (nx)  #IF  ($nx$) 
is-actually-to-be-allocated ; 

=>  overlay-element-rel-addr  (nx)  #IF  ($nx$) 
references -an -over lay -variable  # . 


#DF  added-to-f irst-word-address  (s-ref-addr,  n) 

"{  ($s-ref-addr$ ) is-standard-reference-address  #AND 
n>=o } " 

=>  ( $s-ref-addr , "with"  word-address-f rom  (s-ref-addr) 
+ n$)  replacing-first-word-address  #. 


#DF  entry-standard-reference-address  (nx) 

"{nx  #IS  <entry-variable> } " 

=>  ($  indexed-entry-standard-relative-address 
(table-name-given-in  (nx),  index-values 
(index-given-in  (nx))),  "with"  word-address-f rom 
( simple-standard -reference -address 
(table-name-given-in  (nx)))$) 
added-to-f irst-word-address  #. 


#DF  table-name-given-in  (nx) 

"{nx  #IS  <entry-variable> } " 
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=>  #SEG  1 #0F  (#SEG  5 #0F  nx)  #. 


#DF  index-given-in  (nx) 

"{nx  #IS  <entry-variable>} " 
=>  #SEG  9 #0F  nx  #. 


#DF  indexed-entry-standard-relative-address  (tab-name, 
ix-vals ) 

=>  contiguous-word-ref-addr-at  ( #FIRST-ELEMENT-IN 
ix-vals  * nr-wds-per-entry-in  (tab-name),  "with" 
nr-wds-per-entry-in  (tab-name)  • bits-per-word 
"bits")  #. 


#DF  nr-wds-per-entry-in  (tab-name) 

=>  number-of-words-per-entry-in 

( table-implicitly-referenced-by  (tab-name))  #IF 
( $tab-name$ ) ref erences -a- table -item ; 

=>  number-of-words-per-entry-in  (declaration-for 
(tab-name))  #OTHERWISE  #. 


//DF  special-int-var-ref erence-address  (sp-int-var) 

"{sp-int-var  #IS  <special-integer-variable> } " 

=>  standard-ref erence-address-of 

(loop-variable-constituting  (sp-int-var))  #IF 
( $sp-int-var$)  is-loop-variable ; 

=>  bit-modifier-reference-using  (index-values 
( index-list-of  (sp-int-var)), 

"and"  standard-ref erence-address-of  ( ob ject-variable-of 
(sp-int-var) ) ) 

#IF  ($sp-int-var$ ) is-Lit-functional-modif ier ; 

=>  char-modifier-reference-using 

(standard -ref erence-address-of  (ob ject-variable-of 
(sp-int-var)))  #IF  ( $sp-int-var$ ) 
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is-char-functional-modif ier ; 

=>  pos-modif ier-reference-using  ( f ile-name-of 
(sp-int-var) ) #IF  ( $sp-int-var$ ) 
is-pos- functional -mod if ier ; 

=>  nent-modif ier-reference-of  (sp-int-var)  #IF 
($sp-int-var$)  is-nent-functional-modif ier  #. 


#DF  loop-variable-cojistituting  (sp-int-var) 

"{sp-int-var  #IS  <special-integer-variable>  #AND 
( $sp-int-var$)  is-loop-variable} " 

=>  #SEG  1 #0F  sp-int-var  #. 


#DF  bit-modifier-reference-using  (ix-vals,s-ref-addr) 

=>  ($  ($  s-ref-addr,  "to" 

first-bit-position-indicated-in  (ix-vals)  $) 
adjusted-ref erence -address , "with" 
nr-of-bits-indicated-in  (ix-vals)  $) 
replacing-nr-of-bits  #. 


#DF  first-bit-position-indicated-ln  (ix-vals) 
=>  #FIRST-ELEMENT-IN  ix-vals  #. 


#DF  nr-of-bits-indicated-in  (ix-vals) 

=>  1 #IF  #LENGTH  (ix-vals)  <2; 

= > 2 <ifTH-ELEMENT-IN  ix-vals  #OTHERWISE 


//DF  adjusted-reference-address  (s-ref-addr,  "to"  n) 

=>  ( $s-ref-addr , "with"  n$) 

bits-dropped-from-f irst-f ield  #IF  n < 
nr-of-bits-in-f ield-f rom  (s-ref-addr) ; 

=>  ($  ( $s-ref-addr$ ) ad justed-to-next-f ield , "to"  n - 
nr-of-bits-in-f ield-f rom  (s-ref-addr)  $) 
adjusted-reference-address  #OTHERWISE 


= srefaddr-27^  ===============z== 
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#DF  bits-dropped-from-first-field  (s-ref-addr,  n) 

=>  create-standard-reference-address  ( 

($f ield-descriptor-of  (s-ref-addr)  , "by"  n$) 
ad justed -field-descriptor , next -f ield-descriptor-of 
(s-ref-addr)  , nr-of-bits-in  (s-ref-addr)  - n)  #> 


#DF  adjusted-field-descriptor  (fld-desc,  "by"  n) 

=>  build-field-descriptor  (word-address-of  (fld-desc)  , 
f ield-f irst-bit-of  (fld-desc)  +n, 
nr-of-bits-in-f ield-of  (fld-desc)  - n)  #. 


#DF  char-modifier-reference-using  (s-ref-addr) 

=>  ($s-ref-addr , "with"  ( $f ield-descriptor-of 

(s-ref-addr)  , "with"  bits-in-f loating-exponent$ ) 
replacing-f Id-length  $)  replacing-field-descriptor 

#. 


//DF  file-name-of  (sp-int-var) 

"{  ($sp-int-var$)  is-pos-functional-modif ier } " 
=>  #SEG  5 #0F  sp-int-var  #. 


#DF  pos-modif ier-reference-using  (fname) 
=>  ^UNDEFINED  #. 


#DF  nent-modif ier-ref erence-of  (sp-int-var) 

"{  ( $sp-int-var$ ) is-nent-functional-modif ier } " 

=>  Great e-standard -reference-address 

(nent-word-field-descriptor  (sp-int-var) , 
null-next-field-descriptor,  nent-size  (sp-int-var)) 

#. 


//DF  null-next-field-descriptor 
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=>  build-next-field-descriptor  ( ^UNDEFINED, 
/^UNDEFINED,  #UNDEFINED,  ^UNDEFINED)  #. 


#DF  nent-word-f ield-descriptor  (sp-int-var) 

=>  build-field-descriptor  (word-address-f rom 

(standard-reference-address-of  ( table -name -of 
(sp-int-var)))  , bits-per-word  - nent-size 
(sp-int-var)  , nent-size  (sp-int-var))  #. 


#DF  special-f ix-var-reference-address  (sp-fix-var) 

”{sp-fix-var  #IS  <special-f ixed-variable> } " 

=>  mant-modif ier-ref erence-using 

(standard-reference-address-of  (ob ject-variable-of 
(sp-fix-var)))  #. 


#DF  mant-modif ier-ref erence-using  (s-ref-addr) 

=>  ($  s-ref-addr,  "with"  ( $f ield-descriptor-of 

(s-ref-addr)  , "with"  bits-in-f loating-raantissa$) 
replacing-f ld-length$ ) replacing-field-descriptor  #. 


#DF  special-literal-var-reference-address  (sp-fix-var) 

"{sp-fix-var  #IS  <special-f ixed-variable) " 

=>  byte-modifier-reference-using  (index-values 
( index-list-of  (sp-fix-var))  , "and" 
standard-reference-address-of  (object -variable -of 
(sp-fix-var)))  #. 


#DF  byte-modifier-reference-using  (ix-vals,  s-ref-addr) 

=>  ($  ($  s-ref-addr,  "to" 

first-byte -position -indicated-in  ( ix-vals ) 
*bits-per-byte  $)  adjusted-reference-address,  "with" 
!ir-of-by tes-indicated-in  (ix-vals)  •blts-per-byte$ ) 
replacing-nr-of-bits  #. 
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#DF  first-byte-position-indicated-in  (ix-vals) 
=>  #FIRST-ELEMENT-IN  ix-vals  #. 


#DF  nr-of-bytes-indicated-in  (ix-vals) 

=>  1 #IF  #LENGTH  (ix-vals)  <2; 

=>  2 #TH-ELEMENT-IN  ix-vals  #OTHERWISE  #. 


#DF  special-boolean-var-reference-address  (nx) 

"(nx  #IS  <special-boolean-variable>} " 

=>  last-bit-ref-addr-of  ( standard-ref erence-address-of 
(object-variable-of  (nx)))  #. 


#DF  last-bit-ref-addr-of  (s-ref-addr) 

=>  last-bit-ref-addr-of  ( ($s-ref-addr$) 

ad justed-to-next-field ) #IF  nr-of-bits-in 
(s-ref-addr)  > nr-of-bits-in-f ield-f rom  (s-ref-addr) 


=>  ($s-ref-addr , "with"  nr-of-bits-in  (s-ref-addr) 
1$)  bits-dropped-from-first-field  //OTHERWISE  // . 
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#DF  sequence-of-allocated-addressing-units-in  (sys) 

”{  sys  #IS  < jovial-j3-systein>}" 

=>  #SUBSEQUENCE-OF-ELEMENTS  alloc-adunit  #IN 

sequence-of-addressing-units-in  (sys)  #SUCH-THAT 
( ( $alloc-adunit$ ) is-allocated-addressing-unit ) #. 


#DF  is-allocated-addressing-unit  (adunit) 

"{  ($adunit$)  is-a-true-adunit}” 

=>  #TRUE  #IF  adunit  #IS  <program>  #U  <close-subprogram> 
#U  <procedure-subprograni>  ; 

=>  #TRUE  #IF  ($adunit$) 

is-f irst -common -dec-with-it s -name  # . 


#DF  is-f irst-common-dec-with-its-name  (dec) 

” { ($dec$) 

is-f irst-common-dec-with-its-name-in-a-compool } " 

=>  #TRUE  #IFF  #F0R-ALL  other-common  #IN 

seq-of-system-common-decs-preceding  (dec ) 
#IT-IS-TRUE-THAT  (optional -common -block -name -of 
(other-common)  #NEQW  optional-common-block-name-of 
(dec))  #. 


//DF  seq-of-system-common-decs-preceding  (c-dec) 

” { ( $c-dec$) 

is-f irst-common -dec -with -it s-name-in-a-compool } " 

=>  #SUBSEQUENCE-OF-ELEMENTS  other-common  #IN 
sequence-of-addressing-units-in 

(system-containing(c-dec) ) #SUCH-THAT  (other-common 
#IS  <common-declaration>  #AND  other-common  #PRECEDES 
c-dec  #IN  system-containing  (c-dec))  #. 


#DF  sequence-of-addressing-units-in  (sys) 


r 


I 
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” { sys  #IS  <jovial-j3-system>}" 

=>  #SUBSEQUENCE-OF-ELEMENTS  adunit  #IN 

sequence-of-possible-adunits-in  (sys)  #SUCH-THAT 
(($adunit$)  is-a-true-adunit ) #. 


#DF  sequence-of-possible-adunits-in  (sys) 

"{  sys  #IS  < jovial-j3-system>}" 

=>  #SEQUENCE-OF  <program>  #U  <close-subprogram>  #U 
<procedure-subprogram>  #U  <common-declaration>  #U 
<independent-overlay-declaration>  #IN  sys  #. 


#DF  is-a-true-adunit  (adunit) 

”{  adunit  #IS-IN  sequence-of-possible-adunits-in 
(system-containing  (adunit)}” 

=>  #TRUE  #IF  adunit  #IS  <program>  #U  <close-subprogram> 
#U  <procedure-subprogram> ; 

=>  ($adunit$) 

is-f irst -common -dec -with-it s -name- in-a-compool  #IF 
adunit  #IS  <common-declaration> ; 

=>  ($adunit$)  is-absolute-overlay-declaration  #IF 
adunit  #IS  <independent-overlay-declaration>  #. 


#DF  is-f irst-common-dec-with-its-name-in-a-compool  (c-dec) 

”{  c-dec  #IS  <common-declaration>  #AND  c-dec  #IS-]N 
sequence-of-possible-adunits-in  (system-containing 
(c-dec) ) }" 

= > #TRUE  #IFF  //FOR-ALL  other-common  #IN 

seq-of-compool-common-decs-preceding  (c-dec ) 
//IT-IS-TRUE-THAT  ( optional -common -block -name -of 
(other-common)  #NEQW  optional-common-block-name-of 
(c-dec  ))  #. 


seq-of-compool-common-decs-preceding  (c-dec) 
”{  c-dec  #IS  <common-declaration> } " 
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=>  #SUBSEQUENCE-OF-ELEMENTS  other-common  #IN 
(#SEQUENCE-OF  <common-declaration>  #IN 
compool-containing  (c-dec))  #SUCH-THAT  (other-common 
//PRECEDES  c-dec  #IN  compool-containing  (c-dec))  #. 


#DF  compool-containing  (nx) 

= > //LAST  cp  #IN  ( //SEQUENCE-OF-ANCESTORS-OF  nx) 
#SUCH-THAT  (cp  //IS  <implementation-compool> ) #, 


#DF  optional-common-block-name-of  (c-dec) 

”{  c-dec  #IS  <common-declaration>} " 

=>  #SEG  3 #0F  c-dec  #. 

//DF  is-absolute-overlay-declaration  (i-o-d) 

'*  { i-o-d  //IS  <independent-overlay-declaration> } " 

= > #TRUE  //IFF  i-o-d  #IS  //CASE  2 #0F 

< independent -over lay-declarat ion > #. 
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#DF  first-word-addr-of-addressing-unit  (adunit) 

"{  ($adunit$)  is-an-addressing-unit}" 

=>  f irst -word -add r-of -allocated -addressing-unit 
(adunit)  #IF  ($adunit$) 
is-an-al located -addressing-unit ; 

=>  first-word-add r-of -unallocated-addressing-unit 
(adunit)  #IF  ($adunit$) 
is-an-unal located -addressing-unit  # . 


#DF  is-an-unallocated-addressing-unit  (adunit) 

= > #TRUE  (AIFF  ($adunit$)  is-an-addressing-unit  #AND 
#NOT  ($adunit$)  is-an-allocated-addressing-unit  #. 


#DF  is-an-addressing-unit  (nx) 

”{  nx  #IS  #NODE  }" 

=>  #TRUE  #IFF  nx  #IS-IN  sequence-of-addressing-units-in 
(system-containing  (nx))  #. 


#DF  f irst-word-addr-of-unallocated-addressing-unit  (adunit) 

"{  ($adunit$)  is-unallocated-addressing-unit } ” 

=>  overlay-origin  (adunit)  #IF  ($adunit$) 
is-absolute-overlay-declaration ; 

=>  f irst-word-addr-of-addressing-unit  ( 

f irst-common-dec-with-the-name-of-this  (adunit))  #IF 
( $adunit$ ) 

is-f irst -common -dec-wit h-its-name-in-a-compool  # . 


#DF  overlay-origin  (adunit) 

”{  ($adunit$)  is-absolute-overlay-declaration } ” 

=>  #CONVERT  10  (digits-of  (origin-specifier-of 
(adunit)))  #. 
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#DF  digits-of  (num) 

”{  num  #IS  <numeral>  #U  <octal-constant>} " 

=>  num  #IF  num  #IS  <numeral>; 

=>  word-between  (*0(*,"and"  "in" 

#STRING-OF-TERMINALS-OF  (num))  #IF  num  #IS 
<octal-constant>  #. 


//DF  origin-specif ier-of  (ovly-dec) 

"{  ($ovly-dec$)  is-absolute-overlay-declaration } •' 
=>  #SEG  3 #0F  ovly-dec  #. 


#DF  first-common-dec-with-the-name-of-this  (adunit) 

” { ( $adunit$) 

is-f irst-common-dec-with-its-name-in-a-compool } ” 

=>  #FIRST  other-common  #IN 

seq-of -system-common-decs-preceding  (adunit ) 
#SUCH-THAT  (optional -common -block -name -of 
(other-common)  #EQW  optional-common-block-name-of 
(adunit))  #. 


y/DF  is-an-allocated-addressing-unit  (nx) 

”{  nx  #IS  yyNODE}” 

= > #TRUE  y/IFF  nx  #IS-IM 

sequence-of-allocated-addressing-units-in 
(system-containing  (nx))  #. 


yyOF  f irst-word-addr-of-allocated-addressing-unit  (adunit) 
" { ( $adunit$ ) is-an -allocated -addressing-unit } " 


= > f irst-word-addr-in-memory  y/IF  adunit  #EQ 
#FIRST-ELEMENT-IN 

sequence-of-allocated-addressing-units-in 
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(system-containing  (adunit)); 

=>  1 + last-word-addr-of-addressing-unit 

(addressing-unit-preceding  (adunit))  #OTHERWISE  #. 


#DF  first-word-addr-in-memory 
= > 0 #. 


#DF  addressing-unit-preceding  (adunit) 

"{  adunit  #IS-IN 

sequence-of-allocated-addressing-units-in 
(system-containing  (adunit))  }" 

=>  preceding  (adunit  ,”in" 

sequence-of-al located -addressing-uni ts-in 
(system-containing  (adunit)))  #. 


#DF  preceding  (nx,  "in"  seq) 

"{  nx  #IS-IN  seq  #AND  nx  #NEQ  #FIRST-ELEMENT-IN  seq}" 
=>  (OORDPOSIT  nx  #IN  seq  - 1)  #TH-ELEMENT-IN  seq  #. 

^/DF  last-word-addr-of-addressing-unit  (adunit) 

" { ( $adunit$ ) is-an-addressing-unit } " 

=>  first-word-addr-of-addressing-unit  (adunit)  + 
last-word-addr 

(relative-addr-of-structure-designated-by  ( 
last-allocated-name-in  (adunit)))  #. 

//DF  last-word-addr  (s-ref-addr) 

"{  ($  s-ref-addr$)  is-standard-reference-address}" 

=>  last-word-addr-from-contiguous -word -ref -addr 
(s-ref-addr)  #IF  ( $s-ref-addr$ ) 
is -a -contiguous -word -ref -ad dr ; 

=>  word-address-of  ( #LAST-ELEMENT-IN 


i 
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f ield-descriptor-sequence-implied-in  (s-ref-addr) ) 
//OTHERWISE  #. 


I 

I 

#DF  last-word-addr-from-contiguous-word-ref-addr 
(s-ref-addr ) 


"{  ($s-ref-addr$)  is-standard-reference-address  #AND 
($s-ref-addr$)  is-a-contiguous-word-ref-addr  }” 

=>  word-address-from  (s-ref-addr)  + 

( (nr-of-bits-in(s-ref-addr ) - 1)  / bits-per-word ) #, 


#DF  is-a-contiguous-word-ref-addr  (s-ref-addr) 

” { ( $s-ref-addr$)  is-standard-reference-address}” 

= > #TRUE  //IFF  s-ref-addr  #EQ 

contiguous-word-ref-addr-at  (word-address-from 
(s-ref-addr),  "with”  nr-of-bits-in  (s-ref-addr) 
"bits")  #. 


//DF  contiguous-word-ref-addr-at  (n,  "with"  m "bits") 

=>  ($($  basic-contiguous-word-ref-addr , "with"  n $) 
replacing-f irst-word-address , "and"  m $) 
replacing-nr-of-bits  if. 


//DF  last-allocated-name-in  (adunit) 

"{($adunit$)  is-an-allocated-addressing-unit  }" 

= > //LAST-ELEMENT-IN  sequence-of-allocated-names-in 
(adunit)  if. 


//DF  sequence-of-allocated-names-in  (adunit) 

"{  ($adunit$)  is-an-addressing-unit  )" 

=>  sequence -of -a 11 oca ted -names -imp lied -in 
( addressing-unit-parts-f rom  (adunit))  #. 


#DF  addressing-unit-parts-f rom  (adunit) 
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”{  ($adunit$)  is-an-addressing-unit}” 

=>  \adunit\  #IF  adunit  #IS  <program>  #U 

<close-subprogram>  #U  <procedure-subprogram> ; 

=>  ovly-decs-in-block-rooted-by  (adunit)  #IF  ($adunit$) 
is-absolute-overlay-declaration ; 

=>  compool-common-decs-with-same-name-as  (adunit)  #IF 
($adunit$) 

is-f irst-common-dec-with-its-name-in-a-compool  # . 


#DF  ovly-decs-in-block-rooted-by  (ovly-dec) 

"{  ovly-dec  #IS  <independent-overlay-declaration> } '• 

= > overlay-block-derived-by  (\ovly-dec\  ,”frotn” 
overlay-decs-in-adunit-following  (ovly-dec))  #. 

"{  ovly-dec  #IS  <independent-overlay-declaration>)” 


#DF  overlay-decs-in-adunit-following  (ovly-dec) 

”{  ovly-dec  #IS  <independent-overlay-declaration>} " 

=>  elements-following  (ovly-dec,  "in” 
sequence -of -over lay-decs- in -adunit 
(addressing-unit-containing  (ovly-dec)))  #. 


#DF  sequence-of-overlay-decs-in-adunit  (adunit) 

"{  ($adunit$)  is-an-addressing-unit}" 

=>  #SUBSEQUENCE-OF-ELEMENTS  ovly-dec  #IN  domain 
(adunit)  #SUCH-THAT  (ovly-dec  #IS 
< independent -over lay-declarat ion >)  #. 


IDF  elements-following  (nx,  "in"  seq ) 

"{  nx  IIS  INODE  lAND  seq  IIS  ISEQUENCE  }" 

= > ITERMINAL-SUBSEC-OF-LENGTH  ( ILENGTH ( seq  ) - 
(lORDPOSIT  nx  IIN  seq))  lOF  seq  I. 
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j 

#DF  overlay-block-derived-by  (ovly-block-seq , ''from" 
candidate-seq) 

”{  #F0R-ALL  X #IN  ovly-block-seq  #CS  candidate-seq 
#IT-IS-TRUE-THAT  (x  #IS 
< independent -over  lay-declarat  ion  > } *' 

=>  ovly-block-seq  #IF  candidate-seq  #EQ  #NILSEQ; 

=>  overlay-block-derived-by  (ovly-block-seq  #CS  \ 

#FIRST-ELEMENT-IN  candidate-seq\ , "from" 
all-but-first-element-in  (candidate-seq))  #IF 
($#FIRST-ELEMENT-IN  candidate-seq,  "by" 
ovly-block-seq$)  is-a-derived-ovly-dec ; 

=>  overlay-block-derived-by  (ovly-block-seq,  "from" 

all-but-first-element-in  (candidate-seq))  #OTHERWISE 

#. 


#DF  is-a-derived-ovly-dec  ( dec,  "by"  ovly-block) 

=>  #FALSE  #IF  ($dec$)  is-absolute-overlay-declaration ; 

=>  #TRUE  #IFF  #THERE-EXISTS  ovly-deo  #IN  ovly-block 
#SUCH-THAT  ( ($overlay-initiator-of  (dec),  "in" 
ovly-dec$)  is-mentioned ) fOTHERWISE  #. 


#DF  compool-common-decs-with-same-name-as  (adunit) 

"{  ($adunit$) 

is-f irst-common-dec-with-its-name-in-a-compool } " 

=>  #SUBSEQUENCE-OF-ELEMENTS  comp  #IN  ( #SEQUENCE-OF 
<implementation-compool>  #IN  compool-containing 
(adunit))  #SUCH-THAT  (optional-coramon-block-name-of 
(comp)  #EQW  optional-comraon-block-name-of  (adunit)) 

#. 


#DF  sequence-of-allocated-names-iraplied-in  (ad-part-seq ) 
=>  #NILSEQ  #IF  ad-part-seq  #EQ  #NILSEQ; 

=>  \ allocated-names-in  (#FIRST-ELEMENT-IN 
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ad-part-seq )\  #CS 

sequence-0 f -a llocated-names- imp lied -in 
(all-but-f irst-element-in  (ad-part-seq))  fOTHERWISE 

#. 


#DF  allocated-names-in  (adpart) 

'*{  ($adpart$)  is-an-addressing-unit-part  }" 

=>  #SUBSEQUENCE-OF-ELEMENTS  alloc-name  #IN 

sequence-of-allocation-names-in  (adpart)  #SUCH-THAT 
( ($alloc-name$)  is-actually-to-be-allocated ) #. 


#DF  is-actually-to-be-allocated  (nm) 

”{  nm  #IS  <name>  #U  <loop-variable>  #AND  ($nm$) 
is-al location -name } " 

=>  #PARENT-NODE  (nm)  #IS  <one-factor-for-clause>  #U 

<two-factor-for-clause>  #U  <complete-for-clause>  #IF 
nm  #IS  <loop-variable> ; 

=>  #FALSE  #IF  ($  nm  $)  references-a-common-variable 
#AND  ($  nm  $)  is-not-in-common  ; 

=>  #TRUE  #IF  ($  nm  $) 

implicitly-f irst -refers- to-a-table  ; 

=>  #FALSE  #IF  ($nm$)  references-a-table-item ; 

=>  #TRUE  #IF  ($nm$) 

is-al located -prime-overlay -initiator ; 

=>  IFALSE  #IF  ($nm$)  references-an-overlay-variable ; 

=>  #TRUE  #IFF  ($nm$) 

is-first-reference-to-a-declared -variable  fOTHERWISE 

#. 


fDF  references-a-common-variable  (nm) 

”{nm  fIS  <name>  #AND  ($nm$)  is-allocation-name)" 

=>  fTRUE  fIFF  ($declaration-for  (nm)$)  is-in-common  #. 


r. 
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#DF  is-not-in-common  (nm) 

=>  #N0T  is-in-common  (nm)  #. 

#DF  is-in-common  (nm) 

"{nm  #IS  <name>  #AND  ($nm$)  is-allocation-name}" 

=>  addressing-unit-containing  (nm)  #IS 
<common-declaration>  #. 


#DF  implicitly-f irst-refers-to-a-table  (nm) 

"{nm  #IS  <name>  #AND  ($nm$)  is-allocation-name}" 

=>  #FALSE  #IF  #N0T  ($nm$)  references-a-table-item ; 

=>  #FALSE  #IF  any-prior-nm-refers-to-the-table-of  (nm); 
=>  #TRUE  fOTHERWISE  #. 


#DF  any-prior-nm-refers-to-the-table-of  (nm) 

"{  ($nm$)  is-allocation-name  #AND  ($nm$) 

references-a-table-item}" 

=>  #TRUE  #IF  #THERE-EXISTS  alloc-name  #IN 
sequence-of-allocation-names-in 
(addressing-unit-containing  (nm))  #SUCH-THAT 
( ( $table-implicitly-referenced-by  (nm),  "by" 
alloc-name$)  is-explicitly-named ) ; 

=>  #TRUE  #IFF  #THERE-EXISTS  alloc-name  #IN 
elements-preceding  (nm,  "in" 
sequence-of-al location-names -in 
(addressing-unit-containing  (nm)))  #SUCH-THAT 
( ( $alloc-name , "and"  nm$) 

implicitly-refer-to-same-table ) fOTHERWISE  #. 

I //DF  elements-preceding  (x  ,"in"  seq) 

I "(seq  #IS  fSEQUENCE  #AND  x #IS-IN  seq  }" 
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=>  #INITIAL-SUBSEQ-OF-LENGTH  ((#0RDP0SIT  x #IN  seq)  - 
1)  #0F  seq  #. 


#DF  table-implicitly-referenced-by  (nm) 

"{  ($nm$)  references-a-table-item}” 

=>  declaration-for  (nm)  #IF  ($nm$)  is-like-declared ; 

=>  table-containing  (declaration-for  (nm))  fOTHERWISE 

#. 


#DF  table-containing  (nx) 

''{nx  #IS  #N0DE  }'• 

=>  #LAST  ancestor  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  (nx)) 
#SUCH-THAT  ( ancestor  #IS 
<ordinary-table-declaration>  #U 
<def ined-entry-table-declaration>  #U 
<like-table-declaration>  ) #. 


#DF  is-explicitly-named  (tab,  "by”  nm) 

=>  nm  #EQW  name-declared-in  (tab)  #IF  declaration-for 
(nm)  #EQN  tab; 

=>  #FALSE  #OTHERWISE 


#DF  implicitly-ref er-to-same-table  (nm-one,  nra-two) 

”{  ($nm-one$)  is-an-allocation-name  #AND  ($nm-two$) 
is-an-allocation-name  #AND  ($nm-two$) 
references-a-table-itera} " 

=>  IFALSE  #IF  #N0T  ($nm-one$)  references-a-table-item; 

=>  #TRUE  #IFF  table-implicitly-referenced-by  (nm-one) 
#EQN  table-implicitly-referenced-by  (nm-two) 
#0THERWISE  #. 


#DF  sequence-of-allocation-names-in  (adpart) 
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"{  ($adpart$)  is-an-addressing-unit-part  }" 

r>  #SUBSEQUENCE-OF-ELEMENTS  alloc-name  #IN 

sequence-of-possible-allocation-names-in  (adpart ) 
#SUCH-THAT  ( ( $alloc-name$)  is-allocation-name ) #. 


#DF  sequence-of-possible-allocation-names-in  (adpart) 

"{  ($adpart$)  is-an-addressing-unit-part  }" 

=>  #SEQUENCE-0F  <name>  #U  <loop-variable>  #IN  adpart  #. 

#DF  is-allocation-name  (nm) 

”{  nm  #IS  <name>  #U  <loop-variabie>} ” 

r>  #TRUE  #IF  nm  »1S  <loop-variable> ; 

=>  a-category-3-declaration-exists-for  (nm)  #IF 
#PARENT-N0DE  (nm)  #IS  <function-name>  #U 
<input-operand>  #U  <loc-name>  #U  <simple-variable> 
#U  <table-name>  #U  <tabular-name> ; 

=>  #FALSE  ^OTHERWISE  #. 

#DF  references-a-table-item  (nm) 

”{  nm  #IS  <name>  #AND  ($nm$)  is-allocation-name  }" 

=>  #TRUE  #IFF  ($nm$)  is-ordinary-item-reference  #0R 
($nm$)  is-string-item-reference  #0R  ($nm$) 
is-defined -entry- item-reference  # . 

#DF  is-allocated-prime-overlay-initiator  (nm) 

"{  ($nm$)  is-allocation-name}” 

=>  ($nm$)  is-prime-initiator  #IF  ($nm$) 
is-overlay-initiator ; 

=>  #FALSE  #OTHERWISE  #. 

#DF  is-prime-overlay-initiator  (alloc-name) 
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"{  ($alloc-name$)  is-allocation-name  }" 

=>  ($alloc-name$)  is-prime-initiator  #IF  ($alloc-name$) 
is-overlay-initiator ; 

=>  #FALSE  #OTHERWISE  #. 

#DF  is-overlay-initiator  (alloc-name) 

”{  ($alloc-name$)  is-allocation-name}” 

=>  #TRUE  #IFF  #THERE-EXISTS  ovly-dec  #IN 

sequence-of-overlay-declarations-mentioning 
(alloc-name)  #SUCH-THAT  ( ( $alloc-name , "in” 
ovly-dec$)  appears-as-the-overlay-initiator ) #. 

IDF  appears-as-the-overlay-initiator  (nm,  ”m”  ovly-dec) 

”{  ovly-dec  IIS  <independent-overlay-declaration>  lAND 
name  IIS  <name>  }” 

=>  IFALSE  IIF  ($ovly-dec$) 

is -absolute-overlay -declaration ; 

=>  ITRUE  IIFF  nm  lEQN  overlay-initiator-of  (ovly-dec) 
lOTHERWISE  I. 

IDF  overlay-initiator-of  (ovly-dec) 

”{  ($ovly-dec$)  is-overlay-declaration}” 

=>  data-sequence-initiator-of  (first-data-sequence-of 
(overlay-specif ication-of  (ovly-dec)))  I. 

IDF  data-sequence-initiator-of  (ds) 

”{  ds  IIS  <data-sequence>  }" 

=>  ISEG  1 lOF  (ISEG  1 IGF  ds)  I. 

IDF  overlay-specif ication-of  (ovly-dec) 

=========szz===========  adunaddr-291  z=zzzzzzzzzzzzzzzzzzzzz 
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" { ($ovly-dec$)  is-overlay-declaration}” 
=>  #SEG  3 #0F  ovly-dec  #. 


#DF  first-data-sequence-of  (ovly-spec) 

"{  ovly-spec  #IS  <overlay-specification>}" 
=>  #SEG  1 #0F  ovly-spec  #. 


#DF  is-prime-initiator  (nm) 

"{  ($nm$)  is-overlay-initiator}" 

=>  nm  #EQN  overlay-initiator-of  ( #FIRST-ELEMENT-IN 
sequence-of-overlay-declarations-mentioning  (nm) ) 
#IF  #F0R-ALL  ovly-dec  #IN 

sequence-of-overlay-declarations-mentioning  (nm) 
#IT-IS-TRUE-THAT  ( ($nm,  "in”  ovly-dec  $) 
matches-the-overlay-initiator ) ; 

=>  #FALSE  #OTHERWISE  #. 


#DF  matches-the-overlay-initiator  (nm,  "in"  ovly-dec) 

"{  nm  #IS  <narae>  #AND  ($nm$)  is-overlay-declaration}" 

=>  #FALSE  #IF  ($ovly-dec$) 

is -absolute -over lay -dec la rat ion ; 

=>  #FALSE  #IF  nm  #NEQW  overlay-initiator-of  (ovly-dec); 

=>  #TRUE  #IFF  declaration-for  (nm)  #EQW  declaration-for 
(overlay-initiator-of (ovly-dec) ) #OTHERWISE  #. 


#DF  ref erences-an-overlay-variable  (nm) 

"{  nm  #IS  <name>  #AND  ($nm$)  is-an-allocation-name} " 
=>  #TRUE  #IFF 

sequence-of-over lay-declarations -mentioning  (nm) 
#NEQS  #NILSEQ  #. 
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#DF  sequence-of-overlay-declarations-mentioning  (nm) 

"{  nm  IIS  <name>  lAND  ($nm$)  is-an-allocation-name } ” 

=>  #SUBSEQUENCE-OF-ELEMENTS  ovly-dec  IIN 

sequence-of-ovly-decs-possibly-mentioning  (nm) 
ISUCH-THAT  (($nm,  ”in"  ovly-dec$)  is-mentioned ) #. 


IDF  sequence-of-ovly-decs-possibly-mentioning  (nm) 

” { nm  IIS  <name>  lAND  ($nm$)  is-an-allocation-name  }" 

=>  ISEQUENCE-OF  <independent-overlay-declaration>  IIN 
actual  (program-context  (declaration-for  (nm)))  IIF 
actual  (program-context  (nm))  IIS  INODE-IN  actual 
(program-context  (declaration-for  (nm)))  ; 

=>  ISEQUENCE-OF  <independent-overlay-declaration>  IIN 
actual  (program-context  (declaration-for  (nm)))  ICS 
ISEQUENCE-OF  <independent-overlay-declaration>  IIN 
actual  (program-context  (nm))  lOTHERWISE  I. 


IDF  is-mentioned  (nm,  "in"  ovly-dec) 

"{  nm  IIS  <name>  lAND  ($nm$)  is-an-allocation-name  lAND 
( $ovly-dec$ ) is -over lay -declaration } " 

=>  ITRUE  IIFF  ITHERE-EXISTS  ovly-name  IIN  (ISEQUENCE-OF 
<name>  IIN  ovly-dec)  ISUCH-THAT  ( ( $nm , ovly-name$ ) 
match)  I. 


IDF  match  (nm,ovly-nm) 

=>  IFALSE  IIF  nm  INEQW  ovly-nm; 

=>  ITRUE  IIFF  declaration-for  (nm)  lEQN  declaration-for 
(ovly-nm)  lOTHERWISE  I. 


IDF  is-f irst-reference-to-a-declared-variable  (nm) 

"{nm  IIS  <name>  lAND  ($nm$)  is-allocation-name } " 

=>  ITRUE  IIFF  IFOR-ALL  alloc-name  IIN 
sequence -of -allocation -names -in 
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(addressing-unit-containing  (nm))  #IT-IS-TRUE-THAT 
(declaration-for  (nm)  #EQN  declaration-for 
(alloc-name)  fIMPLIES  nm  fPRECEDES  alloc-name  #IN 
sequence-of-allocation-names-in 
(addressing-unit-containing  (nm)))  #. 


#DF  addressing-unit-containing  (nx) 

"{  nx  #IS  #N0DE}” 

=>  #FIRST  adunit  #IN  sequence-of-addressing-units-in 
(system-containing  (nx))  #SUCH-THAT  (nx  #IS-IN 
domain  (adunit))  #. 


#DF  domain  (adunit) 

•'{  ($adunit$)  is-an-addressing-unit  }" 

=>  sequence-of-nodes-implied-in 

(addressing-unit-parts-from  (adunit))  #. 


#DF  sequence-of-nodes-implied-in  (ad-part-seq ) 

'•{  #F0R-ALL  adpart  #IN  ad-part-seq  #IT-IS-TRUE-THAT 
( ($adpart$)  is-an-addressing-unit-part ) }" 

=>  #NILSEQ  #IF  ad-part-seq  #EQ  #NILSEQ; 

=>  \ #SEQUENCE-OF-NODES-IN  ( #FIRST-ELEMENT-IN 

ad-part-seq )\  #CS  sequence-of-nodes-implied-in 
(ad-part-seq)  fOTHERWISE  #. 
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#DF  relative-addr-of-structure-designated-by  (alloc-name) 

" { ($alloc-narae$)  is-allocated-name}" 

=>  relative-addr-of-overlay-block-initiated-by 
(alloc-name)  #IF  ($alloc-name$) 
is-p rime-over lay-initiator ; 

=>  relative-addr-of-allocated-name  (alloc-name) 
fOTHERWISE  #. 


#DF  relative-addr-of-overlay-block-initiated-by  (alloc-name) 

”{  ($alloc-name$)  is-allocated-narae  #AND  ( $alloc-name$ ) 
is-prime-overlay-initiator  }” 

=>  contiguous-word-ref-addr-at  (word-address-f rom 
( relative-addr-of-allocated-name  (alloc-name) ) , 
"with"  length-of -over lay-block- initiated -by 
(alloc-name)  • bits-per-word  "bits")  #. 


#DF  length-of-overlay-block-initiated-by  (alloc-name) 

"{  ($  alloc-name  $)  is-prime-overlay-initiator  }" 

=>  1 + last-word-addr-in-overlay-block-initiated-by 
(alloc-name)  - word-address-from 

(relative-addr-of-allocated-name  (alloc-name)  ) #. 


#DF  last -word -addr-in-over lay-block-initiated -by 
(alloc-name) 

=>  maximal-addr-of 

( sequence-of -da t a -sequence -terminators-f rom 
(ovly-decs-in-block-initiated-by  (alloc-name)))  #. 


#DF  ovly-decs-in-block-initiated-by  (alloc-name) 

"{  ($alloc-name$)  is-prime-overlay-initiator}" 

=>  ovly-decs-in-block-rooted-by 

( ind-ovly-dec-containing  (alloc-name))  #. 
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#DF  ind-ovly-dec-containing  (alloc-name) 

"{  ($alloc-name$)  is-prime-overlay-initiator}” 

=>  #LAST  iod  #IN  (#SEQUENCE-0F-ANCEST0RS-0F  alloc-name) 
#SUCH-THAT  (iod  #IS 

< independent -over lay-dec larat ion > ) #. 


#DF  sequence-of-data-sequence-terminators-from  (ovly-block) 

•*{  #F0R-ALL  ovly-dec  #IN  ovly-block  #IT-IS-TRUE-THAT  ( 
($  ovly-dec  $)  is-overlay-declaration  ) }" 

=>  fNILSEQ  #IF  ovly-block  #EQ  fNILSEQ; 

=>  data-seq-terminator-seq  ( #FIRST-ELEMENT-IN 
ovly-block)  #CS 

sequence-of-data-sequence-terminators-from 
(all-but-first-element-in  (ovly-block) ) #OTHERWISE 

#. 


#DF  data-seq-terminator-seq  (ovly-dec) 

"{  ($ovly-dec$)  is-overlay-declaration}" 

=>  #SUBSEQUENCE-OF-ELEMENTS  term  #IN  (#SEQUENCE-0F 
<name>  #IN  ovly-dec)  #SUCH-THAT  ( ($term$) 
is-data-seq-terminator ) #. 

#DF  is-data-seq-terminator  (nm) 

"{  nm  #IS  <name>  }" 

= > #TRUE  //IFF  //PARENT-NODE  (#PARENT-N0DE(nm)  ) #IS  //CASE 
1 #0F  <data-sequence>  #. 

#DF  maximal-addr-of  (ds-term-seq ) 

"{  #F0R-ALL  X #IN  ds-term-seq  #IT-IS-TRUE-THAT  (($x$) 
is-data-seq-terminator}" 

=>  last-word-addr  (overlay-element-rel-addr 
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(#FIRST-ELEMENT-IN  ds-term-seq ) ) #IF  ILENGTH 
(ds-term-seq ) =1; 

=>  maximum  (last-word-addr  (overlay-element-rel-addr 
(#FIRST-ELEMENT-IN  ds-term-seq))  , maximal-addr-of 
(all-but-f irst-element-in  (ds-term-seq)))  #0THERWISE 

#. 


#DF  overlay-element-rel-addr  (nm) 

" { nm  #IS  <name>  #AND  ($nm$) 
is-in-overlay-declaration) ” 

=>  overlay-initiator-rel-addr  (nm)  #IF  ($nm$) 
initiates-its-overlay ; 

=>  data-sequence-initiator-rel-addr  (nm)  #IF  ($nm$) 
initiates-its-data-sequence ; 

=>  alloc-name-addr-for  (nm  ."at"  1 + last-word-addr 
(overlay-element-rel-addr  ( ($nm$) 

preceding-this-nm-in-its-data-sequence) ) ) #0THERWISE 


#DF  initiates-its-overlay  (nm) 

”{  nm  #IS  <name>  #AND  ($nm$) 

is-in-overlay-declaration }” 

=>  nm  #EQ  overlay-initiator-of 

(overlay-declaration-containing  (nm))  #IF  #N0T 
( $overlay-declarat ion-containing  (nra)$) 
is-absolute-overlay-declaration ; 

=>  nm  #EQ  first-name-in-overlay 

(overlay-declaration-containing  (nm))  #0THERWISE 


#DF  overlay-initiator-rel-addr  (nm) 

"{  ($nm$)  initiates-its-overlay}” 

=>  subordinate-overlay-initiator-rel-addr  (nm)  #IF 
overlay-declaration-containing  (nm)  #IS 
<subordinate-overlay-declaration> ; 
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=>  alloc-name-addr-for  ( nm,  "at"  0 ) #IF 
($over lay-declaration-containing  (nm)$) 
is-absolute-overlay-declaration ; 

=>  prime-overlay-initiator-rel-addr  (nm)  #IF  ($nm$) 
i s-prime-over lay- initiator ; 

=>  overlay-element-rel-addr 

(nearest-prior-overlay-reference-to  (nm))  fOTHERWISE 

#. 


#DF  subordinate-overlay-initiator-rel-addr  (nm) 

”{  ($nm$)  initiates-its-overlay  #AND  ($nm$) 

is-contained-in-a-subordinate-ovly-dec}" 

=>  entry-rel-addr-of-unpacked-allocated-name  (nm)  #IF 
( $nm$)  is-prime-subordinate-over lay- initiator ; 

=>  overlay-element-rel-addr 

(nearest-prior-subord-ovly-reference-to  (nm) ) 
fOTHERWISE  #. 


#DF  nearest-prior-subord-ovly-reference-to  (nm) 

"{  ($nm$)  is-contained-in-a-subordinate-ovly-dec  #AND 
($nm$)  initiates-its-overlay  #AND  #N0T  ($nm$) 
is-prime-subordinate-overlay-initiator } " 

=>  overlay-reference-to  (nm,  "in”  preceding 
(overlay-declaration-containing  (nm),  "in” 
seq-of-subord-overlay-declarations-mentioning  (nm) ) ) 

#. 


#DF  prime-overlay-initiator-rel-addr  (nm) 

"{  ($nm$)  is-prime-overlay-initiator } " 

=>  relative-addr-of-allocated-name  (nm)  #IF  ($nm$) 
is-al located -prime -over lay- initiator ; 

=>  r e la t i ve -add r-of -allocated -name 

(allocated-name-corresponding-to  (name-declared -in 
(declaration-for  (nm))))  #0THERWISE  #. 
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#DF  a located-name-corresponding-to  (nm) 

"{na  #IS  <narae>}" 

= > #Fi.RST  alloc-name  #IN  sequence-of-allocated-names-in 
( addressing-unit-containing  (nm))  #SUCH-THAT  ( 
#STRING-OF-TERMINALS-OF  (alloc-name)  #EQW 
#STR1NG-0F-TERMINALS-0F  (nm))  #. 


#DF  nearest-prior-overlay-reference-to  (nm) 

"{  ($  nm  $)  initiates-its-overlay  #AND  #N0T  ($  nm  $) 
is-prime-overlay-initiator  I" 

=>overlay-reference-to  (nm,  "in"  preceding 
(overlay-declaration-containing  (nm),  "in" 
sequence-of-overlay-declarations-mentioning  (nm) ) ) 

#. 


#DF  overlay-reference-to  (nm,  "in"  ovly-dec) 

"{  nm  #IS  <name>  #AND  ovly-dec  #IS 
<overlay-declaration>  }" 

=>  #FIRST  nx  #IN  ( #SEQUENCE-0F  <name>  #IN  ovly-dec) 
#SUCH-THAT  (nx  #EQW  nm)  #. 


#DF  first-name-in-overlay  (ovly-dec) 

"{  (lovly-dec  $)  Is-absolute-overlay-declaration } " 

=>  #FIRST-ELEMENT-IN  ( #SEQUENCE-0F  <name>  #IN 
ovly-dec)  #. 


#DF  initiates-its-data-sequence  (nm) 

"{  nm  #IS  <name>  #AND  ($nm$) 
is-an-overlay-declaration} " 

=>  #TRUE  #IFF  nm  #EQ  data-sequence-initiator-of 
(data-sequence-containing  (nm))  #. 
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#DF  overlay-declaration-containing  (nm) 

”{  ($nm$)  is-in-overlay-declaration}" 

=>  #LAST  ovly-dec  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  nm) 
#SUCH-THAT  (ovly-dec  #IS 
< independent -over lay-declarat ion > #U 
<subordinate-overlay-declaration>)  #. 


IDF  data-sequence-initiator-rel-addr  (nm) 

"{  ($nm$)  initiates-its-data-sequence  lAND  INOT  ($nm$) 
initiates-its-overlay }" 

=>  alloc-name-addr-for  (nm,  "at"  word-address-from 
(overlay-element-rel-addr  (overlay-initiator-of 
(overlay-declaration-containing  (nm)))))  #. 


IDF  preceding-this-nm-in-its-data-sequence  (nm) 

"{  nm  IIS  <name>  lAND  ($nm$) 
is-in-overlay-declaration }" 

=>  preceding  (nm,  "in"  names-in-data-seq  ( 
data-sequence-containing  (nm)))  I. 


IDF  data-sequence-containing  (nm) 

"{  nm  IIS  <name>  lAND  ($nm$) 
is-in-overlay-declaration } " 

=>  ILAST  ds  IIN  (ISEQUENCE-OF-ANCESTORS-OF  nm) 
ISUCH-THAT  (ds  IIS  <data-sequence> ) I. 


IDF  names-in-data-seq  (ds) 

"{ds  IIS  <data-sequence>  }" 

=>  ISEQUENCE-OF  <name>  IIN  ds  I. 


IDF  relative-addr-of-allocated-name  (alloc-name) 

"{  ($alloc-name$)  is-allocated-name  lAND  INOT 
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( $alloc-name$)  is-prime-overlay-initiator } " 

=>  alloc-name-addr-for  (alloc-name,  "at"  0)  #IF 
( $alloc-name$)  is-first-in-addressing-unit ; 

=>  alloc-name-addr-for  (alloc-name,  "at"  1 + 
last-word-addr 

(relative-addr-of-structure-designated-by 
( ($alloc-name$)  preceding-this-allocated-name) ) ) 
fOTHERWISE  #. 


#DF  is-first-in-addressing-unit  (alloc-name) 

"{  ($alloc-name$)  is-allocated-narae}" 

=>  #TRUE  #IFF  alloc-name  #EQ  #FIRST-ELEMENT-IN 
sequence-of-allocated-names-in 
(addressing-unit-containing  (alloc-name);  #. 


#DF  alloc-name-addr-for  (alloc-name,  "at"  n) 

"{  alloc-name  #IS  <name>  #AND  n>  rO  #AND  #N0T 
($alloc-name$)  is-prime-overlay-initiator  }" 

=>  call-by-name-addr-at  (n)  #IF  ( $alloc-name$ ) 
is- that-of-a-ca 11-by-name-parameter ; 

=>($basic-addr(alloc-name) , "with"  n$) 

replacing-first-word-address  ^OTHERWISE  if. 


#DF  is-that-of-a-call-by-name-parameter  (alloc-name) 

"{  ($alloc-name$ ) is-allocated-name} " 

=>  IFALSE  #IF  program-context  (alloc-name)  #IS-N0T 
<procedure-declaration>  #U  <procedure-subprogram> ; 

= > #FALSE  iflF  program-context  ( declaration-f or 

(alloc-name))  #IS-N0T  <procedure-declaration>  #U 
<procedure-subprogram> ; 

=>  #TRUE  #IFF 

there-is-a-formal-name-matching( alloc-name ) 
♦OTHERWISE  #. 
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IDF  there-is-a-formal-name-matching  (alloc-name) 

"{  ($alloc-name$)  is-allocated-name  lAND 

program-context  (alloc-name)  IIS 

<procedure-declaration>  lU  <procedure-subprogram>  }" 

=>  ITHERE-EXISTS  formal-nm  IIN  (ISEQUENCE-OF  <name>  IIN 
optional-formal-parameter-list-of  (procedure-head -of 
(program-context  (alloc-name))))  ISUCH-THAT  ( 

( $formal-nm$)  is-not-control-parameter  lAND 
formal-nm  lEQW  alloc-name)  I. 


IDF  is-not-control-parameter  (nm) 

” { nm  IIS  <name>  }" 

=>  IPARENT-NODE  (nm)  IIS-NOT 

<formal-input-close-parameter>  lU 
< f ormal -ou t put-des tinat ion-parameter > I. 


IDF  preceding-this-allocated-name  (alloc-name) 

”{  ($alloc-name$)  is-allocated-name  }" 

=>  preceding  (alloc-name,  "in" 
sequence-of-allocated-names-in 
(addressing-unit-containing  (alloc-name)))  I. 


IDF  call-by-name-addr-at  (n) 

"{  n>=0  }" 

=>  one-word-reference-address-at  (n)  I. 


IDF  one-word-reference-address-at  (n) 

"{  n>=0  }" 

=>  create -standard -reference -address 

(build-field-descriptor  (n,  0,  bits-per-word ) , 
null-next-field-descriptor,  bits-per-word)  I. 
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#DF  replacing-first-word-address  (s-ref-addr,  "by"  n) 

"{  n >=  0 #AND  ($s-ref-addr$) 
is-standard-reference-address } " 

=>  ($s-ref-addr , "with"  ($field-descriptor-of 

(s-ref-addr),  "having"  n$)  replacing-word-address  $) 
replacing-field-descriptor  #. 


#DF  basic-addr  (nm) 

"{  nm  #IS  <name>  }" 
s>  basic-allocated-addr  (nm)  #. 


#DF  basic-allocated-addr  (alloc-name) 

"{  ($alloc-name$)  is-allocated-name  }" 

=>  basic-mode-addr  (detailed-declaration-for 

(alloc-name))  #IF  ($alloc-name$)  is-mode-declared ; 

=>  basic-simple-item-addr  (detailed-declaration-for 
(alloc-name))  #IF  ( $alloc-name$ ) 
is-simple-item-reference ; 

=>  basic-array-addr  (detailed-declaration-for 

(alloc-name))  #IF  ($alloc-name$)  is-array-ref erence ; 

=>  basic-ordinary-table-addr  ( 

implied-declaration-for (alloc-name ) ) #IF 
($alloc-name$ ) is-ordinary-table-reference ; 

=>  basic-def ined-entry-table-addr  ( 

implied-declaration-for  (alloc-name))  #IF 
( $alloc-name$)  is-defined-entry-table-ref erence ; 

=>  bas ic -like- table -dec larat ion-add r 

(declaration-for(alloc-name) ) #IF  ( $alloc-name$ ) 
is-like-declared-table  #. 


#DF  is-mode-declared  (nx)  I 

i 


=>  detailed-declaration-for  (nx)  #IS  <mode-directive> 
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#DF  basic-mode-addr  (dec) 

"{  dec  #IS  <mode-directive>  }” 

=>  basic-addr-from-item-descriptor 

(typed-item-description-of  (dec))  #. 


#DF  basic-addr-from-item-descriptor  (desc) 

=>  float-basic-addr  #IF  desc  #IS 
<floating-item-description> ; 

=>  int-basic-addr  (integer-specifier-of (desc ) ) #IF  desc 
#IS  <integer-item-description> ; 

=>  fix-basic-addr  ( fixed-specifier-of (desc) ) #IF  desc 
#IS  <fixed-item-description> ; 

=>  status-basic-addr  (bit-count(desc) ) #IF  desc  #IS 
<status-item-description> ; 

=>  boolean-basic-addr  #IF  desc  #IS 
<boolean-item-description>  ; 

=>  literal-basic-addr  (byte-count(desc) ) #IF  desc  #IS 
<hollerith-item-description>  #U 
<transmission-code-item-description>  #. 


#DF  float-basic-addr 

=>  create -standard -reference-address 

(build-field-descriptor  (0,  0,  bits-per-word ) , 
null-next-field-descriptor,  bits-per-word)  #. 


#DF  int-basic-addr  (ispec) 

”{  ispec  #IS  <integer-specifier>}" 

=>  gen-basic-addr  (#STRING-OF-TERMINALS-OF 
(bit-count ( ispec )) ) #. 


#DF  bit-count  (ispec) 
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z>  #SEG  3 #0F  ispec  #. 


#DF  gen-basic-addr  (n) 

=>  create-standard-reference-address 

(build-field-descriptor (0,bits~per-word 
null-next-field-descriptor,  n)  #. 


- n,n), 


#DF  fix-basic-addr  (spec) 

”{  spec  #IS  <f ixed-specifier>  }” 

=>  gen-basic-addr  (bit-count  (spec))  #, 


#DF  status-basic-addr  (n) 

=>  gen-basic-addr  (n)  #. 


#DF  boolean-basic-addr 

r>  create-standard-reference-address 
(build-field -descrip tor  (0,35,1), 
null-next-field-descriptor,  1)  #. 


#DF  literal-basic-addr  (n) 

r>  right- justified-literal-basic-addr  (n 
■bits-per-byte)  #IF  n<=  bytes-per-word ; 

=>  left- justified-literal-basic-addr  (n  • 
bits-per-byte)  #IF  n>  bytes-per-word  #. 


#DF  bytes-per-word 

z>  bits-per-word  / bits-per-byte  #, 


#DF  byte-count  (desc) 

z>  #SEG  3 #0F  desc  #. 
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#DF  right-justified-literal-basic-addr  (n) 

=>  creat e-standard -reference-address 

(build-field-descriptor  (0,  bits-per-word  - n, 
bits-per-byte) , literal-next-field-descriptor,  n)  #. 


#DF  left-justified-literal-basic-addr  (n) 

=>  create-standard-reference-address 

(build-field-descriptor  (0,  #FIRST-ELEMENT-IN 
byte-boundaries,  bits-per-byte), 
literal-next-field-descriptor  , n)  #. 


#DF  literal-next-field-descriptor 

=>  build-next-field-descriptor  (bits-per-byte, 

#FIRST-ELEMENT-IN  byte-boundaries,  1,  bits-per-byte) 

#. 


#DF  byte-boundaries 

=>  byte-boundaries-given  (bits-per-byte,  bits-per-word) 

#. 


#DF  byte-boundaries-given  (n,w) 

"{  n>  0,  w>=0  }" 

=>  INILSEQ  #IF  w < n; 

=>  \w  - n\  #CS  byte-boundaries-given  (n,w  - n) 
fOTHERWISE  #. 


IDF  is-simple-item-reference  (nx) 

=>  detailed-declaration-for  (nx)  IIS 
<simple-item-declaratlon>  #. 


IDF  basic-simple-item-addr  (dec) 

"{  dec  IIS  <simple-item-declaration>  }” 
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=>  basic-addr-from-item-descriptor 

(typed-item-description-of (dec) ) #. 


#DF  is-array-reference  (nx) 

=>  detailed-declaration-for  (nx)  #IS 
<array-declaration>  #. 

#DF  basic-array-addr  (dec) 

”{  dec  #IS  <array-dec>  }•' 

=>  contiguous-word-ref-addr-of-length 

(number-of-words-in-array (dec)  • bits-per-word ) #. 


#DF  contiguous-word-ref-addr-of-length  (m  "bits") 

"{  m > 0 }" 

=>  ($basic-contiguous-word-ref-addr , "with"  m$) 
replacing-nr-of-bits  #. 


#DF  basic-contiguous-word-ref-addr 

=>  create-standard-reference-address 
( basic -full -word -descriptor, 

contiguous-word-next-f Id-descriptor , fUNDEFINED 
"nr-of-bits" ) #. 


#DF  basic-full-word-descriptor 

=>  build-field-descriptor  (0  "word-address",  0 
"field-first-bit",  bits-per-word 
"nr-of-bits-in-f ield" ) #. 


#DF  contiguous-word-next-f Id -descriptor 

=>  build-next-field-descriptor  (bits-per-word 
"bits-between-f ield-f irst-bits"  , 0 
"first-field-bit",  1 "words-between-f ields" , 
bits-per-word  "nr-of-bits-in-next-f ield" ) #. 
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#DF  number-of-words-in-array  (dec) 

"{  dec  #IS  <array-declaration>  }" 

= > number-of-columns-in-array (dec ) • 

number-of-words-per-column-of -array (dec ) #. 

#DF  number-of-columns-in-array  (dec) 

"{  dec  #IS  <array-declaration>}*' 

=>  dimension-product  (all-but-f irst-element-in 
(dimension-bounds-from  (dec)))  #. 

#DF  dimension-bounds-from  (dec) 

"{  dec  #IS  <array-declaration>  }" 

=>  bounds-values  (dimension-list-of  (dec))  #. 

#DF  dimension-list-of  (dec) 

"{  dec  IIS  <array-declaration>}" 

=>  ISEG  7 #0F  dec  #. 

IDF  bounds-values  (dim-list) 

"{  dim-list  IIS  <dimension-list>} " 

=>  \ first-dim-count  (dim-list)  \ IIF  ($dim-list$) 
has-only-one-diraension ; 

=>  \ f irst-dira-count  (dim-list)  \ ICS  bounds-values 
(rest-of-dimension-list  (dim-list))  lOTHERWISE  I. 

IDF  first-dim-count  (dim-list) 

'•{  dim-list  IIS  <dimension-list>}'’ 

=>  ISTRING-OF-TERMINALS-OF  ( f irst-d im-of  (dim-list))  I. 
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#DF  has-only-one-dimension  (dim-list) 

=>  #TRUE  #IFF  dim-list  #IS  #CASE  1 #0F  <dimension-list> 

#. 


#DF  first-dim-of (dim-list ) 

”{  dim-list  #IS  <dimension-list>  }” 
=>  #SEG  1 #OF  dim-list  #. 


#DF  rest-of-dimension-list  (dim-list) 

"{  dim-list  #IS  <dimension-list>} " 
=>  #SEG  3 #0F  dim-list  #. 


#DF  number-of-words-per-column-of-array  (dec) 

”{  dec  #IS  <array-declaration>  }” 

=>  last-word-addr 

(basic-addr-of-boolean-array-column-f rom  (dec))  #IF 
declaration-type  ( typed-item-description-of  (dec)) 
#EQW  ' boolean  * ; 

=>  last-word-addr  (basic-array-element-addr  (dec))  • 
number-of-elements-per-column-of -array  (dec ) 
#0THERWISE  #. 


#DF  basic-addr-of-boolean-array-column-from  (dec) 

"{  dec  #IS  <array-declaration>  #AND  declaration-type 
(typed-item-description-of  (dec))  #EQW  'boolean'  }" 

=>  create-standard-reference-address 
(build-field-descriptor  (0,0,1), 
build -next-field -descriptor  ( 1 , 0,  1 , 1 ) , 
number-of-elenents-per-column-of-array (dec) ) #. 


#DF  basic-array-element-addr  (dec) 
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"{  dec  #IS  <array-declaration>  #AND  declaration-type 
(typed-item-description-of  (dec))  #NEQW  ’boolean'}" 

=>  basic-addr-from-item-descriptor 

(typed-item-description-of  (dec))  #. 


#DF  number-of-elements-per-column-of-array  (dec) 

"{  dec  #IS  <array-declaration>}" 

=>  1 + ( #FIRST-ELEMENT-IN  dimension-bounds-f rom  (dec)) 

#DF  implied-declaration-for  (nm) 

"{  ($nm$)  is-allocated-name}" 

=>  table-implicitly-referenced-by  (nm)  #IF  ($nm$) 
implic it ly-first-refers-to-a- table ; 

=>  declaration-for  (nm)  #0THERWISE  #. 

#DF  is-ordinary-table-ref erence  (nm) 

"{  nm  #IS  <name>}" 

=>  table-implicitly-referenced-by  (nm)  #IS 
<ordinary-table-declaration>  #IF  ($  nm  $) 
implicitly-f irst -refers -to-a- table  ; 

=>  declaration-for  (nm)  #IS 

<ordinary-table-declaration>  #0THERWISE 

#DF  basic-ordinary-table-addr  (dec) 

"{  dec  #IS  <ordinary-table~declaration>}" 

=>  contiguous-word-ref-addr-of-length 

(number-of-words-in-ordinary-table(dec ) • 
bits-per-word ) #. 

#DF  number-of-words-in-ordinary-table(dec) 
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"{  dec  #IS  <ordinary-table-declaration>}'’ 

=>  one-for-nent-word  + number-of-entries-of  (dec)  • 
number-of-words-per-entry-in  (dec)  #. 


#DF  one-for-nent-word 
=>  1 #. 


#DF  is-defined-entry-table-reference  (nm) 

"{  nm  #IS  <name>}” 

=>  table-implicitly-referenced-by  (nm)  #IS 

<defined-entry-table-declaration>  #IF  ($  nm  $) 
implicitly-first-refers-to-a-table  ; 

s>  declaration-for  (nm)  #IS 

<def ineQ-entry-table-declaration>  #OTHERWISE  //. 


#DF  basic-def ined-entry-table-addr  (dec) 

"{  dec  #IS  <defined-entry-table-declaration>}" 

=>  contiguous-word-ref-addr-of -length 

(number-of-words-in-defined-entry- table (dec ) • 
bits-per-word ) #. 


#DF  number-of -word s-in-defined-entry- table (dec ) 

"{dec  #IS  <def ined-entry-table-declaration> } " 

=>  one-for-nent-word  + number-of-entries-of  (dec)  * 
number-of-words-per-entry-in  (dec  ) #. 


IDF  is-like-declared-table  (nm) 

"{  nm  IIS  <name>)" 

=>  table-iraplicitly-referenced-by  (nm)  IIS 
<like-table-declaration>  IIF  ($  nm  $) 
implicitly-f irst-refers-to-a-table  ; 
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=>  #TRUE  #IFF  declaration-for  (nm)  #IS 
<like-table-declaration>  #AND 
detailed-declaration-for  (nm)  IIS 
<ordinary-table-declaration>  #U 
<defined-entry-table-declaration>  lOTHERWISE  #. 


IDF  number-of-entries-of  (dec) 

dec  IIS  <def ined-entry-table-declaration>  #U 
<ordinary-table-declaration>  #U 
<like-table-declaration>}” 

=>  ICONVERT  10  (ISTRING-OF-TERMINALS-OF 
(nominal-size-specif ier-of 
(table-size-specification-of  (dec))))  I. 

IDF  nominal-size-specif ier-of  (tss) 

"{  tss  IIS  <table-size-specification>}" 

=>  ISEG  3 lOF  tss  I. 

IDF  basic-like-table-declaration-addr  (dec) 

"{dec  IIS  <like-table-declaration>}" 

=>  contiguous-word-ref-addr-of -length 

(number-of-words-in-like-table(dec)  • bits-per-word ) 

I. 

IDF  number-of-words-in-like-table  (dec) 

"{  dec  IIS  <like-table-declaration>} " 

=>  one-f or-nent-word  + number-of-entries-of-like-table 
(dec)  * number-of-words-per-entry-in  (dec)  I. 

IDF  number-of-entries-of-like-table  (dec) 

"{  dec  IIS  <like-table-declaration>}" 

=>  number-of-entries-of  (dec)  IIF 

==s=r==s===========sr =r  reladdr-312  ======================= 
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#STRING-OF-TERMINALS-OF  ( table-size-specif ication-of 
(dec))  #NEQW  #NIL; 

=>  number-of-entries-of-like-table 
(pattern-table-decl-for  (dec))  #IF 
pattern-table-decl-for(dec ) #IS 
<like-table-declaration> ; 

=>  number-of-entries-of  (pattern-table-decl-for(dec) ) 
#OTHERWISE  #. 


#DF  number-of-words-per-entry-in  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  #U 
<defined-entry-table-declaration>  #U 
<like-table-declaration>} " 

=>  nr-words-per-entry-in-like-table  (dec)  #IF  dec  #IS 
<like-table-declaration> ; 

= > nr-words-per-entry-in-ordinary-table (dec ) #IF  dec 
#IS  <ord inary -table -declare t ion > ; 

=>  nr-words-per-entry-in-defined-entry-table  (dec)  #IF 
dec  #IS  <def ined-entry-table-declaration>  #. 


#DF  nr-words-per-entry-in-like-table  (dec) 
"{  dec  #IS  <like-table-declaration>  )” 


=>  number-of-words-per-entry-in 

(ultimate-pattern-table-decl-for  (dec))  #IF 
ultimate-pattern-table-decl-for  (dec)  #IS 
<def ined -entry -table -declaration > ; 

=>  number-of-words-per-entry-in  ( 
pattern-table-decl-for  (dec))  #IF 
optional-packing-specif ication-of  (dec)  #EQW  #NIL; 

=>  nr-words-per-dense-entry 

(ultimate-pattern-table-decl-for  (dec))  #IF 
optional-packing-specification-of  (dec)  #EQW  'D'; 


=>  nr-words-per-med-packed-entry 

(ultimate-pattern-table-decl-for  (dec))  #IF 
optional-packing-specif ication-of  (dec)  #EQW  *M' ; 
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=>  nr-words-per-unpacked-entry 

(ultimate-pattern-table-decl-for(dec) ) #IF 
optional-packing-specif ication-of  (dec)  #EQW  'N'  #. 


#DF  nr-words-per-entry-in-def ined -entry- table (dec ) 

”{  dec  #IS  <def ined-entry-table-declaration>}" 

=>  ICONVERT  10  (#STRING-OF-TERMINALS-OF 

( words-per-entry-designator-of  (dec)))  #. 


#DF  words-per-entry-designator-of  (dec) 

”{  dec  #1S  <def ined-entry-table-declaration> } ” 
=>  #SEG  9 #0F  dec  #. 


#DF  nr-words-per-entry -in-ordinary- table (dec ) 

"{dec  #IS  <ordinary-table-declaration>)" 

=>  nr-words-per-dense-entry (dec ) #IF 
(/STRING-OF-TERMINALS-OF 

(optional-packing-specif ication-of (dec ) ) #EQW  'D'; 

= > nr-words-per-raed-packed-entry (dec ) #IF 
#STRING-OF-TERMINALS-OF 

(optional-packing-specification-of (dec) ) #EQW  ’M'; 

=>  nr-words-per-unpacked-entry  (dec)  #IF 
#STRING-OF-TERMINALS-OF 

(optional-packing-specif ication-of  (dec))  AIS-IN 
\’N',  //NIL\  #. 


#DF  nr-words-per-unpacked-entry  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  )" 

=>  last-word-addr 

( entry-re 1-addr-of-unpacked-structu re-designated -by 
( last-allocated-name-in-entry-of  (dec)  ) ) #. 
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#DF  last-allocated-name-in-entry-of  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  }" 
r>  #LAST-ELEMENT-IN 

sequence-of-names-allocated-in-entry-of  (dec)  #. 


#DF  sequence-of-naraes-allocated-in-entry-of  (dec) 

”{  dec  #IS  <ordinary-table-declaration>  }” 

=>  #SUBSEQUENCE-OF-ELEMENTS  alloc-nm  #IN 

sequence-of-allocation-names-in-entry-of  (dec) 
#SUCH-THAT  ( ($alloc-nm$) 
is-actually-al located -in-entry ) #. 


#DF  is-actually-allocated-in-entry  (alloc-nm) 

”{  ($alloc-nm$)  is-allocation-name-in-ordinary-entry }" 

=>  #TRUE  #IF  ($alloc-nm$) 

i s-pr ime-subordinate-over lay -initiator; 

=>  #FALSE  #IF  ($alloc-nm$) 

i s -mentioned -in -a-subordinate-ovly -dec ; 

= > #TRUE  iflF  ($alloc-nm$) 

is -declared -subordinate-item-name  # , 


#DF  sequence-of-allocation-names-in-entry-of  (dec) 

”{  dec  #IS  <ordinary-table-declaration>  }" 

=>  #SUBSEQUENCE-OF-ELEMENTS  alloc-nm  #IN 

sequence -of -possible-allocat ion-names -in-entry-of 
(dec)  #SUCH-THAT  ( (|alloc-nra$) 
is-entry-allocation-name ) #. 


//DF  is-entry-allocation-name  (alloc-nm) 

”{  alloc-nm  #IS  <name>  }” 

=>  #TRUE  #IFF  #PARENT-N0DE  (alloc-nm)  #IS 
<simple-variable> 
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#DF  sequence-of-possible-allocation-names-in-entry-of  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  }" 

=>  #SEQUENCE-OF  <name>  #IN 

ordinary-entry-description-of  (dec)  #. 

//DF  ordinary-entry-description-of  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  }” 

=>  #SEG  13  #0F  dec  #. 

(/DF  is-prime-subordinate-overlay-initiator  (nm) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  }" 

=>  ($nm$)  is-prime-subord-initiator  #IF  ($nm$) 
is-subord-overlay-initiator ; 

= > //FALSE  ^OTHERWISE  // . 

//DF  is-subord-overlay-initiator  (nm) 

”{  ($nm$)  is-allocation-name-in-ordinary-entry  }” 

=>  ($nm,  "in”  subordinate-ovly-dec-containing  (nm)  $) 
appears-as-the-subordinate-overlay-initiator  #IF 
( $nm$ ) is-contained-in-a-subordinate-ovly-dec ; 

=>  #FALSE  #OTHERWISE  #. 

//DF  is-contained-in-a-subordinate-ovly-dec  (nm) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  }" 

= > #TRUE  //IFF  ITHERE-EXISTS  ovly-dec  #IN  ( 

//SEQUENCE-OF-ANCESTORS-OF  nm)  #SUCH-THAT  (nm  #IS 
<subordinate-overlay-declaration> ) #. 

//DF  subordinate-ovly-dec-containing  (nm) 
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"{  ($nm$)  is-contained-in-a-subordinate-ovly-dec  }” 

=>  #LAST  ovly-dec  #IN  ( #SEQUENCE-OF-ANCESTORS-OF  nm) 
#SUCH-THAT  (nm  #IS 

<subordinate-overlay-declaration>)  #. 


#DF  appears-as-the-subordinate-overlay-initiator  (nm,  "in" 
ovly-dec) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  #AND 
ovly-dec  #IS  <subordinate-overlay-dec>  #AND  nm  #IS 
#N0DE-IN  ovly-dec  }" 

=>  #TRUE  #IFF  nm  #EQN  overlay-initiator-of  (ovly-dec) 

#. 


#DF  is-prime-subord-initiator  (nm) 

"{  ($nm$)  is-subord-overlay-initiator  }" 

=>  nm  #EQN  overlay-initiator-of  ( #FIRST-ELEMENT-IN 

seq-of-subord-overlay-declarations-mentioning  (nm)  ) 
#IF  #F0R-ALL  ovly-dec  #IN 

seq-of-subord-overlay-declarations-mentioning  (nm) 
#IT-IS-TRUE-THAT  ( ($nm,  "in"  ovly-dec$) 
matches-the-overlay-initiator ) #. 


#DF  is-mentioned-in-a-subordinate-ovly-dec  (nm) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  }" 

=>  #TRUE  #IFF 

seq-of-subord -over lay -dec la rat ions -mentioning  (nm ) 
#NEQ  #NILSEQ  #. 


#DF  seq-of-subord-overlay-declarations-mentioning  (nm) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  }" 

=>  #SUBSEQUENCE-OF-ELEMENTS  ovly-dec  #IN  ( #SEQUENCE-OF 
<subordinate-overlay-declaration>  #IN 
oj*dinary-table-dec-containing  (nm)  ) #SUCH-THAT  ( 
($nm,  "in"  ovly-dec$)  is-mentioned ) #. 
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#DF  ordinary-table-dec-containing  (nm) 

=>  #LAST  table-dec  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  nm) 
#SUCH-THAT  (table-dec  #IS 
<ordinary-table-declaration>)  #. 


#DF  is-declared-subordinate-item-name  (nm) 

"{  ($nm$)  is-allocation-name-in-ordinary-entry  #AND 
#N0T  ($nm$)  is-mentioned-in-a-subordinate-ovly-dec  }” 

=>  nm  #EQN  name-declared-in 

(subordinate-item-declaration-containing  (nm)  ) #. 


#DF  subordinate-item-declaration-containing  (nm) 

=>  #LAST  ancestor  #IN  ( #SEQUENCE-0F-ANCEST0RS-0F  nm) 
#SUCH-THAT  (ancestor  #IS 
<ord inary- table-item-declarat ion > #U 
<string-item-declaration>  #U 
<def ined-entry-item-declaration>)  #. 


#DF  entry-rel-addr-of-unpacked-structure-designated-by  (nm) 

"{  ($nm$)  is-actually-allocated-in-entry  }" 

=>  entry-rel-addr-of -unpacked -ovly -block -initiated -by 
(nm)  #IF  ($nm$) 

is-prime-subordinate-over lay-initiator ; 

=>  entry-rel-addr-of-unpacked-allocated-name  (nm) 
#0THERWISE  #. 


#DF  entry-rel-addr-of-unpacked-allocated-name  (nm) 

” { ($nm$)  is-actually-allocated-in-entry 

=>  alloc-name-addr-for  (nm,  "at”  0)  fIF  ($nm$) 
is-first- in -ordinary-entry ; 

=>  alloc-name-addr-for  (nm,  "at"  1 + last-word-addr 
(entry-rel-addr-of-unpacked-structure-designated-bv 
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( ($nm$) 

preceding-this-allocated-ordinary-entry-name)  ) ) 
fOTHERWISE  #. 


#DF  is-first-in-ordinary-entry  (nm) 

"{  ($nm$)  is-actually-allocated-in-entry  }" 

=>  #TRUE  #IFF  nm  #EQ  #FIRST-ELEMENT-IN 

sequence-of-names-allocated-in-entry-of 
(ordinary-table-dec-containing  (nm)  ) #. 


#DF  preceding-this-allocated-ordinary-entry-name  (nm) 

”{  ($nm$)  is-actually-allocated-in-entry  #AND  #N0T 
($nm$)  is-first-in-ordinary-entry  }" 

= > preceding  (nm,  "in*' 

sequence-of-names-allocated-in-entry-of 
(ordinary-table-dec-containing  (nm)  ) ) #. 


#DF  entry-rel-addr-of-unpacked-ovly-block-initiated-by  (nm) 

"{  ($nm$)  is-actually-allocated-in-entry  #AND  ($nm$) 
is-prime-subordinat e-over lay-initiator  }” 

=>  contiguous-word-ref-addr-at  ( word-address-f rom 

(entry-rel-addr-of-unpacked-allocated-name  (nm)  ). 
”with''  length-of -unpacked -over  lay-block -initiated -by 
(nm)  • bits-per-word  "bits”)  #. 


#DF  length-of-unpacked-overlay-block-initiated-by  (nm) 

"{  ($nm$)  is-prime-subordinate-overlay-initiator  }" 

=>  1 + last-word-addr-in-unpacked-ovly-blk-at  (nm)  - 
word-address-f rom 

(entry-rel-addr-of-unpacked-allocated-name  (nm)  ) #. 


#DF  last-word-addr-in-unpacked-ovly-blk-at  (nm) 

”{  ($nm$)  is-prime-subordinate-overlay-initiator  }" 
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s>  maximal-addr-of 

(sequence-of-data-sequence-terminators-f rom 
(subordinate-ovly-decs-in-block-inltiated-by  (nm)  ) 

) #. 


#DF  subordinate-ovly-decs-in-block-initiated-by  (nm) 

"{  ($nm$)  is-prime-subordinate-overlay-initiator  }" 

=>  ovly-decs-in-block-rooted-by 

(subordinate-ovly-dec-containing  (nm)  ) #. 


#DF  nr-words-per-med-packed-entry  (dec) 

"{  dec  #IS  <ordinary-table-declaration>  }” 

=>  last-word-addr 

(entry-rel-addr-of-med-packed-structure-designated-by 
( last-allocated-name-in-entry-of  (dec)  ) ) #. 


#DF  entry-rel-addr-of-med-packed-structure-designated-by 
(nm) 

"{  ($nm$)  is-actually-allocated-in-entry  }” 

=>  en t ry-re 1 -add r-o f -med -pack ed-ovly -block -initiated -by 
(nm)  #IF  ($nm$) 

is-prime -subordinate-overlay -initiator : 

=>  entry-rel-addr-of-med-packed-allocated-name  (nm) 
#OTHERWISE  #. 


#DF  ent ry-re 1 -add r-of-med-packed-ovly -block- initiated -by 
(nm) 

•'{  ($nm$)  is-actually-allocated-in-entry  }” 

=>  contiguous-bytes-ref-addr-at  ( f irst-byte-addr 

(entry-rel-addr-of-med-packed-allocated-name  (nm)  ), 
"with” 

byte-length-of-med-packed-overlay-block-lnitlated-by 
(nm)  • bits-per-byte  "bits")  #. 
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#DF  contiguous-bytes-ref-addr-at  (byte-addr,  "with"  n-bits) 

=>  ($  ($  ( ibasic-contiguous-by te-ref-addr , "with" 
word-part  (byte-addr)  $) 

replacing-first-word-address,  "and"  bit-part 
(byte-addr)  $)  reolacing-f irst-bit , "and"  n-bits$) 
replacing-nr-of-bits  #. 


#DF  basic-contiguous-byte-ref-addr 

=>  creat e-standard-reference -address 
(basic-byte-descriptor , 

contiguous-next-byte-descriptor . #UNDEFINED 
"nr-of-bits")  #. 


#DF  basic-byte-descriptor 

=>  build-field-descriptor  (0  "word-address", 

#FIRST-ELEMENT-IN  byte-boundaries  "field-first-bit", 
bits-per-byte  "nr-of-bits-in-f ield"  ) #. 


#DF  con tiguous-next -byte-descriptor 

=>  build-next-field-descriptor  (bits-per-byte 

"bits-between-f ield-first-bits" , #FIRST-ELEMENT-IN 
byte-boundaries  "first-field-bit",  1 
"words-between-f ields" , bits-per-byte 
"nr-of-bits-in-next-f ield" ) #. 


#DF  f irst-byte-addr  (s-ref-addr) 

"{  ( $s-ref-addr$ ) is-standard-reference-address  }" 

=>  next-byte-at-or-following  (first-bit-addr 
(s-ref-addr)  ) #. 


#DF  by te-length-of-raed -packed-over lay-block-initiated -by 
(nm) 

"{  ($nm$)  is-prime-subordinate-overlay-initiator  }" 

=>  byte-distance-between  (first-byte-addr 

(entry-rel-addr-of-med-packed-allocated-name  (nm)  ) 
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, "and"  last-byte-addr-in-med-packed-ovly-blk-at 
(nm)  ) #. 


#DF  byte-distance-between  (byte-addrl,  byte-addr2) 

"{  ($  \ bvte-addri,  byte-addr2  \ $)  are-byte-addresses 


=>  1+  #ABS  (bytes-per-word  • (word-part  (byte-addrl)  - 
word-part  (byte-addr2)  ) + (nr-bytes-in-wd-before 
(byte-addrl)  - nr-bytes-in-wd-before  (byte-addr2)  ) 

) #. 


#DF  nr-bytes-in-wd-before  (byte-addr) 

"{  ($byte-addr$)  is-byte-address  }" 

=>  (#0RDP0SIT  (bit-part  (byte-addr)  ) #IN 
byte-boundaries)  - 1 #. 


#DF  last-byte-addr-in-med-packed-ovly-blk-at  (nm) 

"{  ($nm$)  is-prime-subordinate-overlay-initiator  }" 

=>  maximal-byte-addr-of-med-packed 

( sequence-of-dat a -sequence -terminators -from 
( subordinate-ovly-decs-in-block-initiated-by  (nm)  ) 

) #. 


#DF  maximal-byte-addr-of-med-packed  (ds-term-seq ) 

"{  #F0R-ALL  X #IN  ds-term-seq  #IT-IS-TRUE-THAT  ( ($x$) 

is-data-seq-terminator  }" 

=>  last-byte-addr  (overlay-element-med-packed-rel-addr 
( #FIRST-ELEMENT-IN  ds-term-seq  ) ) #IF  ILENGTH 
(ds-term-seq)  =1; 

=>  maximum-bit-addr  (last-byte-addr 

( ove r lay -element-med -packed -re 1 -add r ( 
#FIRST-ELEMENT-IN  ds-term-seq  ) ). 
max imal-byte-addr-of-med -packed 
(all-but-f irst-element-in  (ds-term-seq  ) ) ) 
♦OTHERWISE  #. 


#DF  overlay-element-med-packed-rel-addr  (nm) 


"{nm  #IS  <narae>  #AND  ($nm$) 
is-in-subordinate-overlay-declaration}" 

=>  overlay-initiator-med-packed-rel-addr  (nm)  #IF 
($nm$)  initiates-its-overlay ; 

=>  data-sequence-lnitiator-med-packed-rel-addr  (nm)  #IF 
( $nm$)  initiates-its-data-sequence ; 

=>  med-packed-allocated-name-addr-for  (nm,  "at” 
next-byte-after  (last-byte-addr 
(overlay-element-med-packed-rel-addr  ( ( $nm$) 
preceding-this-nm-in-its-data-sequence) ) ) ) 

^OTHERWISE  #. 


#DF  overlay-initiator-med-packed-rel-addr  (nm) 

"{  ($nm$)  initiates-its-overlay  #AND  ($nm$) 
is-contained-in-a-subordinate-ovly-dec}" 

=>  entry-rel-addr-of-med-packed-allocated-name  (nm)  #IF 
( $nm$)  is-prime-subordinate-over lay- initiator ; 

=>  overlay-element-med-packed-rel-addr 

(nearest-prior-subord-ovly-ref erence-to  (nm) ) 
#OTHERWISE 


#DF  data-sequence-initiafcor-med-packed-rel-addr  (nm) 

"{  ($nm$)  initiates-its-data-sequence  #AND  #NOT  ($nm$) 
initiates-its-overlay } " 

=>  med-packed-allocated-name-addr-for  (nm,  "at" 

first -byte -ad dr  (overlay-element-med-packed-rel-addr 
(overlay-initiator-of 

(overlay-declaration-containing  (nm)))))  #. 


#DF  entry-rel-addr-of-med-packed-allocated-name  (nm) 


"{  ($nm$)  is-actually-allocated-in-entry } " 


Page  reladdr-324 

Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Proiect 
Relative  Addresses 


=>  raed-packed-allocated-name-addr-for  (nra,  "at” 
f irst-byte-bit-addr ) #IF  ($nm$) 
is-first -in -ordinary -entry ; 

=>  med-packed-allocated-name-addr-for  (nm,  "at" 
next-byte-after  ( last-byte-addr 

( entry-rel-addr-of-med -packed -structure-designated -by 
( ($nra$) 

preceding-this-allocated-ordinary-entry-name ) ) ) ) 
#OTHERWISE  #. 


#DF  first-byte-bit-addr 

=>  bit-addr-built-from  (0,  #FIRST-ELEMENT-IN 
byte-boundaries)  #. 


#DF  last-byte-addr  (s-ref-addr) 

"{  ($s-ref-addr$)  is-standard-reference-address } " 

=>  bit-addr-from-f ield-descriptor  ( #LAST-ELEMENT-IN 
f ield-descriptor-sequence-implied-in  (s-ref-addr) ) 


#DF  bit-addr-from-f ield-descriptor  (fldesc) 

"{  ($fldesc$)  is-f ield-descriptor} " 

=>  bit-addr-built-from  (word-address-of  (fldesc), 
f ield-f irst-bit-cf  (fldesc))  #. 


#DF  next-byte-after  (byte-addr) 

"{  ( $bvte-addr$ ) is-by te-address } " 

=>  first-byte-next-word-following  (byte-addr)  #IF 
bit-part  (byte-addr)  = #LAST-ELEMENT-IN 
byte-boundaries ; 

= > next-byte-this-word-following  (byte-addr)  #0THEP.WISE 


#DF  med-packed-allocated-name-addr-for  (nm,  "at"  byte-addr) 
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”{  ($byte-addr$)  is-byte-address  #AND  ($nm$) 
i s-al location-name-in -entry } " 


=>  med-packed-ordinary-table-item-addr 

(detailed-declaration-for  (nm)  , "at"  byte-addr)  #. 


#DF  med-packed-ordinary-table-item-addr  (dec,"at"byte-addr) 

"{  ($byte-addr$)  is-byte-address  #AND  dec  #IS 
<ordinary-table-item-declaration>} " 

=>  med-packed-shifted-addr-from-item-descriptor 

(typed-item-description-of  (dec),  "to"  byte-addr)  #. 


//DF  med-packed-shifted-addr-from-item-descriptor 
(desc , "to" byte-addr) 

"{  ($desc$)  is-typed-item-description  #AND 

($byte-addr$)  is-byte-address}" 

=>  ($  basic-addr-from-item-descriptor  (desc)  , "to" 

byte-addr$)  shifted-ref-addr  #IF  number-of-bits-in  ( 
basic-addr-from-item-descriptor  (desc)  ) + bit-part 
(byte-addr)  <=  bits-per-word ; 

=>  ($  basic-addr-f rom-item-descriptor  (desc)  , "to" 
next-word-f irst-bit-followinR  (byte-addr)  $) 
shifted-ref-addr  #OTHERWISE#. 


#DF  nr-words-per-dense-entry  (dec) 

"{  dec  #13  <ordinary-table-declaration>} " 

=>  last-word-addr 

(entry-rel-addr-of-dense-st rue tu re-designated -by 
( last-allocated-name-in-entry-of  (dec)))  #. 


#DF  entry-rel-addr-of-dense-structure-designated-by  (nm) 
"{  ($nm$)  is-actually-allocated-in-entry } " 


=>  entry-rel-addr-of-dense-ovly-block-initiated-by  (nm) 
#IF  ($nm$)  is-prime-subordinate-oyerlay-initiator ; 


1 


Page  reladdr-326 


Specification  of  J0VIAL(J3) 
Semantic  Definitions  Section 


07/12/77 
SEMANOL  Proiect 
Relative  Addresses 


=>  entry-rel-addr-of-dense-allocated-name  (nm) 
^OTHERWISE  #. 


#DF  entry-rel-addr-of-dense-ovly-block-initiated-by  (nm) 


"{  ($nm$)  is-actually-allocated-in-entry } " 


:>  contiguous-bits-ref-addr-at  ( f irst-bit-addr 
(entry-rel-addr-of-dense-allocated-name  (nm) ) , 
"with" 

bit-length-of-dense-overlay -block -initiated -by  (nm ) 
"bits")  #. 


#DF  contiguous-bits-ref-addr-at  (bit-addr,  "with"n"bits" ) 


"{  ($bit-addr$)  is-bit-address  #AND  n>=0}" 


=>  ($contiRuous-word-ref-addr-at  (word-part  (bit-addr), 
"with"  n "bits"  ) ."with"bit-part(bit-addr)$) 
replacing-first -bit// . 


//DF  replacing-first-bit  ( s-ref-addr , "with"n ) 


"{  ( $s-ref-addr$ ) is-standard-ref erence-address  #AND 
n>=0}" 


=>  ( $s-ref-addr . "with" 

( $field-descriptor-of (s-ref-addr ) , "with"n$) 

replacing-field-first-bit$) 

rep lacing-field -descrip tor# . 


//DF  bit-length-of-dense-overlay-block-initiated-by  (nm) 


"{  ($nm$)  is-prime-subordinate-overlay-initiator } " 


=>  bit-distance-between  ( f irst-bit-addr 

(entry-rel-addr-of-dense-allocated-name  (nm))  ,"and" 
last-bit-addr-in-dense-ovly-blk-at  (nm))  #. 


#DF  f irst-bit-addr  (s-ref-addr) 


"{  ( $s-ref-addr$ ) is-standard-reference-address ) " 
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=>  bit-addr-from-field-descriptor  ( f ield-descriptor-of 
(s-ref-addr) ) #. 


#DF  bit-distance-between  (bit-addri,  bit-addr2) 

'•{  ($  \ bit-addri,  bit-addr2  \ $)  are-bit-addresses}" 

=>  1+  #ABS  ((  bit-part  (bit-addri)  - bit-part 

(bit-addr2))  + (word-part  (bit-addri)  - word-part 
(bit-addr2))  • bits-per-word ) #. 


#DF  last-bit-addr-in-dense-ovly-blk-at  (nm) 

"{  ($nm$)  is-prime-subordinate-overlay-initiator } " 

=>  maxima 1-bit-addr-of -densely-packed 

( sequence -of -da ta-sequence- terminators -from 
(subordinate-ovly-decs-in-block-initiated-by  (nm) ) ) 

#. 


#DF  maximal-bit-addr-of-densely-packed  (ds-term-seq ) 

"{  #FOR-ALL  X #IN  ds-term-seq  #IT-IS-TRUE-THAT  (($x$) 

i s-data-seq- terminator } " 

=>  last-bit-addr  (overlay-element-dense-rel-addr  ( 
#FIRST-ELEMENT-IN  ds-term-seq))  #IF  #LENGTH 
(ds-term-seq)  =1; 

=>  maximum-bit-addr  (last-bit-addr 

(overlay-element-dense-rel-addr  ( #FIRST-ELEMENT-IN 
ds-term-seq ) ) , maximal-bit-addr-of-densely-packed 
(all-but-f irst-element-in  (ds-term-seq)))  fOTHERWISE 
//. 


#DF  maximum-bit-addr  (bit-addri,  bit-addr2) 

"{  ($)  bit-addri,  bit-addr2\$)  are-bit-addresses}" 

=>  bit-addri  #IF  word-part  (bit-addri)  > word-part 
( bit-addr2 ) ; 

= > bit-addri  #IF  bit-part(bit-addr1 ) > bit-part 
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(bit-addr2) ; 

=>  bit-addr2  #0THERWISE  #. 


#DF  overlay-element-dense-rel-addr  (nra) 

"{  nm  #IS<name>  #AND  ($nm$)  is-in-overlay-declaration } " 

=>  overlay-initlator-dense-rel-addr  (nm)  #IF  ($nm$) 
initiates-its-overlay ; 

=>  data-sequence-initiator-dense-rel-addr  (nm)  #IF 
( $nm$)  initiates-its-data-sequence ; 

=>  dense-allocated-name-addr-f or  (nm,  "at” 
next-bit-after  (last-bit-addr 
(overlay-element-dense-rel-addr  ( ($nm$) 
preceding-this-nm-in-its-data-sequence ) ) ) ) 

#0THERWISE  #. 


#DF  overlay-initiator-dense-rel-addr  (nm) 

"{  ($nm$)  initiates-its-overlay  #AND  ($nm$) 
is-contained-in-a-subordinate-ovly-dec} " 

=>  entry-rel-addr-of-dense-allocated-name  (nm)  #IF 
( $nm$ ) is -prime-subordinate-over lay -initiator ; 

=>  overlay-element-dense-rel-addr  ( 

nearest-prior-subord-ovly-reference-to  (nm) ) 
^OTHERWISE  #. 


#DF  data-sequence-initlator-dense-rel-addr  (nm) 

”{  ($nm$)  initiates-its-data-sequence  #AND  #N0T  ($nm$) 
initiates-its-overlay } " 

=>  dense-allocated-name-addr-f or  (nm,  "at” 

f irst-bit-addr  (overlay-element-dense-rel-addr 
(overlay-initiator-of 

(overlay-declaration-containing  (nm)))))  #. 


#DF  entry-rel-addr-of-dense-allocated-name  (nm) 
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"{  ($nm$)  is-actually-allocated-in-entry}" 

=>  dense-allocated-name-addr-for  (nm, 
"afzero-bit-addr)  #IF  ($nm$) 
is -first-in-ordinary-entry ; 

=>  dense-allocated-name-addr-for  (nm,  ”at" 
next-bit-after  (last-bit-addr 

(entry-rel-addr-of-dense-structure-designated-by 
( ($nm$) 

preceding-this-allocated-ordinary-entry-name ) ) ) ) 
#OTHERWISE  #. 


#DF  zero-bit-addr 

=>  bit-addr-built-from  (0,0)  #. 


#DF  last-bit-addr  (s-ref-addr) 

($s-ref-addr$)  is-standard-reference-address}” 

=>  last-bit-addr-from-f ield-descriptor  ( 
#LAST-ELEMENT-IN 

f ield-descriptor-sequence-implied-in  (s-ref-addr) ) 

#. 


#DF  last-bit-addr-from-f ield-descriptor  (fld-desc) 

"{  ($fld-desc$)  is-f ield-descriptor } ” 

=>  bit-addr-built-from  (word-address-of  (fld-desc), 
(field-first-bit-of  (fld-desc)  + 
nr-of-bits-in-f ield-of  (fld-desc)  - 1))  #. 


#DF  next-bit-after  (bitaddr) 

"{  ($bitaddr$)  is-bit-address)" 

=>  next-word-first-bit-following  (bitaddr)  #IF  bit-part 
(bitaddr)  >=  bits-per-word  - 1; 

=>  bit-addr-built-from  (word-part  (bitaddr),  bit-part 
(bitaddr)  +1)  #0THERWISE  #. 
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#DF  next-word-first-bit-following  (bit-addr) 

=>  bit-addr-built-from  (word-part  (bit-addr)+1 ,0)  #. 


#DF  dense-allocated-name-addr-for  (nm,  "at"  bitaddr) 

"{  ($bitaddr$)  is-bit-address  #AND  ($nm$) 
is-allocation-name-in-entry } " 

=>  dense-ordinary-table-item-addr 

(detailed-declaration-for  (nm)  , "at"  bitaddr)  #, 


#DF  dense-ordinary-table-item-addr  (dec, "at"bitaddr ) 

"{  ($bitaddr$)  is-bit-address  #AND  dec  #IS 
<ord inary- table-item-decla rat ion > } " 

=>  dense-sh if ted-addr-froro-i tern-descriptor 

(typed-item-description-of  (dec)  , "to"bitaddr)  #. 


#DF  dense-shifted-addr-from-item-descriptor  (desc,  bitaddr) 

"{  ($desc$)  is-typed-item-description  #AND  ($bitaddr$) 
is-bit-address } " 

=>  dense-char-shift  ( basic-addr-from-item-descriptor 
(desc),  "to"  bitaddr)  #IF  desc  #IS 
<hollerith-item-description>  #U 
< t ransmiss ion-cod e-item -descript ion > ; 

=>  dense-non-char-shif t 

(basic-addr-from-item-descriptor  (desc)  , "to" 
bitaddr)  #OTHERWISE  #. 


#DF  dense-char-shift  (s-ref-addr,  "to"bit-addr ) 

z>  ( $s-ref-addr , "to"next-byte-at-or-following 
(bit-addr)$)  shifted-ref-addr  #. 


#DF  next-byte-at-or-following  (bit-addr) 

"{  ($bit-addr$)  is-bit-address)"  =>  bit-addr  #IF 
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bit-part  (bit-addr)  #IS-IN  byte-boundaries;  => 
first-byte-next-word-following  (bit-addr)  #IF  bit-oart 
(bit-addr)  > #LAST-ELEMENT-IN  byte-boundaries;  => 
next-byte-this-word-following  (bit-addr)  fOTHERWISE 
#DF  first-byte-next-word-following  (bit-addr)  "{ 
($bit-addr$)  is-bit-address}" 

=>  bit-addr-built-from  (word-part  (bit-addr), 
#FIRST-ELEMENT-IN  byte-boundaries)  #. 


#DF  next-byte-this-word-following  (bit-addr) 

'•  { ($bit-addr$)  is-bit-address  #AND  bit-part  (bit-addr) 
< #LAST-ELEMENT-IN  byte-boundaries}" 

= > bit-addr-built-from  (word-part  (bit-addr),  //FIRST 
boundary  #IN  byte-boundaries  //SUCH-THAT 
(boundary>bit-part  (bit-addr)))  #. 


#DF  shifted-ref-addr  (s-ref-addr,  "to"bit-addr ) 

=>  ($s-ref-addr . "with"  shifted-f Id-descriptor 

(field-descriptor-of  (s-ref-addr)  , "to"  bit-addr) 
$)  replacing-field-descriptor  #. 


#DF  shifted-fld-descriotor  (fld-desc,  "to"bit-addr ) 

=>  ($($fld-desc,  "with"  word-part  (bit-addr)  $) 

replacing-word-address,  "and"  bit-part  (bit-addr)  $) 
replacing-field-first-bit 

#DF  dense-non-char-shift  (s-ref-addr,  bitaddr) 

=>  ($  s-ref-addr,  "to"  bitaddr$)  shifted-ref-addr  #IF 
number-of-bits-in  (s-ref-addr)  + bit-part  (bitaddr) 
<=  bits-per-word ; 

=>  ($  s-ref-addr.  "to"  next-word-first-bit-following 
(bitaddr)$)  shifted-ref-addr  fOTHERWISE  #. 
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CONTROL-COMMANDS  [commands]  48 

a-category-2-declaration-exlsts-for  [namedecl]  236 
a-category-B-declaration-exists-for  [namedecl]  238 
a-sequence-designator-ls-properly-indexed-ln 
[control]  97 

a-swltch-polnt-can-be-selected-ln  [control]  94 
abs-function  [grammar]  30 
abs-function-value  [eval]  146 
actlvation-of  [ncf]  69 
actual  [contexts]  232 

actual-input-close-parameter  [grammar]  32 
actual-input-parameter  [grammar]  32 
actual-lnput-parameter-llst  [grammar]  31 
actual-input-parameter-list-of  [control]  102 
actual-output-destination-parameter  [grammar]  22 
actual-output-parameter  [grammar]  21 
actual-output-parameter-list  [grammar]  22 
actual-output-parameter-llst-of  [control]  106 
added-to-f irst-word-address  [srefaddr]  272 
addresslng-unit-contalnlng  [adunaddr]  2^4 
addresslng-unlt-parts-from  [adunaddr]  2d4 
addressing-unit-preceding  [adunaddr]  283 
ad justed-extended-precision-form-of  [implj  220 
adjusted-field-descriptor  [srefaddr]  275 
adjusted-in-leftmost-bits  [control]  79 
adjusted-literal  [control]  80 
adjusted-reference-address  [srefaddr]  274 
ad justed-to-next-bead  [srefaddr]  265 
ad justed-to-next-f ield  [genassgn]  247 
ad justed-to-nth-bead  [srefaddr]  265 
all-but-f irst-character-in  [eval]  163 
all-but-f irst-element-in  [control]  74 
all-but-last-character-in  [namedecl]  243 
all-but-last-character-of  [lexan]  54 
all-but-last-element-ln  [srefaddr]  268 
all-but-next-tok-in  [lexan]  60 
all-keyword  [grammar]  27 
alloc-name-addr-for  [reladdr]  301 
allocated-name-corresponding-to  [reladdr]  299 
allocated-names-in  [adunaddr]  287 
allocating-instance-of  [srefaddr]  270 
allocatlng-instance-reference-addr-of  [srefaddr]  270 
allocating-overlay-instance-of  [srefaddr]  271 
alphameric  [grammar]  40 
alternative-list  [grammar]  25 
alternative-statement  [grammar]  25 
alternative-statement-containing  [control]  113 
alternative-statement-end  [grammar]  25 


Page  index- 1 

Specification  of  J0VIAL(J3) 
Index 


lndex-1 


Page  index-2 


07/12/77 

Specification  of  J0VIAL(J3)  SEMANOL  Project 

Index  Index 


alternative-statement-end-of  [control]  1 '"v 
alternative-statement-unit-successor-of  ['•ontrol]  112 
alternative-test-point-of  [control]  111 
alternatives-of  [control]  110 

any-prior-nm-ref  ers-to-the-table-of  [adun'^ddr]  288 
appears-as-the-overlay-initiator  [adunaddr]  291 
appears-as-the-subordinate-overlay-initiatr*'  [reladdr  ] 

317 

are-attributes  [aux2]  231 
are-determined-to-be-equal  [control]  9^ 

are-extended-precislon-forms  [impl]  226 
are-implementatlon-numerlc-representatlons  [aux2]  230 
are-ln-agreement  [eval]  155 

are-semanol-base-2-integer-constants  [aux2j  231 
are-strings-of-ones-and-zeroes  [aux2]  230 
arg-seq-f rom  [control]  102 
array-declaration  [grammar]  9 
assign-by-name-input-param  [control]  104 

asslgn-by-value-input-param  [control]  105 
assign-close-lnput-param  [control]  104 
assign-destlnation-output-param  [control]  107 
assign-effect  [control]  78 
assign-input-param  [control]  103 
assign-keyword  [grammar]  25 
assign-latest-memory-value  [genassgn]  249 
assign-latest-value  [eval]  I31 
assign-latest-value-of-varlable  [control]  II8 
assign-output-param  [control]  106 
assign-ref-addr-to-output-param  [control]  '>07 
assign-to-f ield  [genassgn]  248 
assignment-containing  [eval]  167 
assignment-statement  [grammar]  20 
assignment-statement-ef fect-of  [control]  78 

assignment-statement-unit-successor-of  [con*‘rol]  78 
assignment-to-actual-output-args-from  [control]  IO8 
assignment-to-input-parameters  [control]  I'^l 

assignment-to-output-parameters  [control]  105 
atomic-boolean-formula  [grammar]  32 
atomic-formula  [grammar]  32 
atomic-numeric-formula  [grammar]  31 
attributes  [attr]  I78 

attributes-converted-f ixed-to-integer  [attr]  202 
bare-constant-llst  [grammar]  10 
base-2-exponent-for  [impl]  228 
baslc-addr  [reladdr]  303 

basic-addr-from-item-descriptor  [reladdr]  304 
basic-addr-of-boolean-array-column-from  [reladdr] 

309 
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basic-allocated-addr  [reladdr]  303 
basic-array-addr  [reladdr]  307 
basic-array-element-addr  [reladdr]  309 
basic-byte-descrlptor  [reladdr]  321 
basic-contiguous-byte-ref-addr  [reladdr]  321 
basic-contiguous-word-ref-addr  [reladdr]  307 
basic-defined-entry-table-addr  [reladdr]  311 
basic-direct-code  [grammar]  2^1 
basic-full-word-descriptor  [reladdr]  307 
baslc-like-table-declaration-addr  [reladdr]  312 
baslc-mode-addr  [reladdr]  30^1 
basic-ordinary-table-addr  [reladdr]  310 
baslc-simple-item-addr  [reladdr]  306 
basic-string-item-addr  [srefaddr]  263 
beads-per-word-from  [srefaddr]  263 
begin-bracket  [grammar]  2U 
begin-keyword  [grammar]  11 

beginning-of-loop-body-containing  [control]  119 
beglns-as-a-special-constant-would  [lexan]  51 
binary-exponent-for  [impl]  227 
binary-fractlon-of  [impl]  229 
binary-fractional-residue  [impl]  218 
binary -mantissa-for  [impl]  227 
binary-string  [auxi]  47 
blt-addr-built-from  [genassgn]  250 
bit-addr-from-f leld-descrlptor  [reladdr]  324 
bit-addr-of-def ined-item-of  [srefaddr]  267 
bit-count  [reladdr]  304 
bit-dlstance-between  [reladdr]  327 
bit-length-of-dense-over lay-block-initiated -by 
[reladdr]  326 

bit-modifier-reference-using  [srefaddr]  274 
bit-pos-from  [srefaddr]  268 

bits-between-f leld-f irst-bits-f rom  [srefaddr]  254 
bits-between-f  leld-f  irst-bits-of  [srefaddr]  25'* 
bits-dropped-from-f irst-f leld  [srefaddr]  275 
bits-ln-f loatlng-exponent  [impl]  223 
bits-in-f loating-mantissa  [impl]  223 
bits-per-byte  [impl]  208 
bits-per-word  [impl]  208 
bits-worth-of-hollerlth-blanks  [eval]  153 
bits-worth-of-transmission-code-blanks  [eval]  153 
boolean-assign  [control]  80 
boolean-basic-addr  [reladdr]  305 
boolean-constant  [grammar]  39 
boolean-constant-value  [eval]  162 
boolean-expression  [grammar]  32 
boolean-formula  [grammar]  32 


index-3 


F 


Page  index-^ 

Specification  of  J0VIAL(J3) 
Index 


07/12/77 
SEMANOL  Project 
Index 


boolean-formula-of  [control]  115 
boolean-item-description  [grammar]  9 
boolean-operation-value  [eval]  1^47 
boolean-primary  [grammar]  33 
boolean-term  [grammar]  33 
boolean-variable  [grammar]  36 
both-operands-are-f ixed-in  [type]  176 
both-operands-are-integer-in  [type]  176 
bounds-values  [reladdr]  308 
build-field-descriptor  [srefaddr]  252 
build-next-field-descriptor  [srefaddr]  254 
byte-boundaries  [reladdr]  306 
byte-boundarles-given  [reladdr]  306 
byte-count  [reladdr]  305 
byte-dlstance-between  [reladdr]  322 
by te-length-of-med -packed-overlay-block-in it la ted -by 
[reladdr]  321 

by te-modif ler-ref erence-using  [srefaddr]  276 

bytes-per-word  [reladdr]  305 

c2-declaration-for  [naraedecl]  237 

call-by-name-addr-at  Freladdr]  302 

call-by-name-table-reference-address  [srefaddr]  256 

caller-of-close  [control]  86 

caller-of-proc  [control]  100 

category-2-declaration-for  [namedecl]  237 

category-3-declaratlon-for  [namedecl]  239 

cf-constant-list  [grammar]  10 

chain-relation  [grammar]  33 

chain-relation-value  [eval]  149 

char-modlf ler-ref erence-using  [srefaddr]  27d 

characters-after  [lexan]  56 

characters-up-to  [lexan]  56 

close-body  [grammar]  15 

close-body-of  [control]  85 

close-containing  [control]  86 

close-declaration  [grammar]  14 

close-end  [grammar]  15 

close-invocation-successor-of  [control]  98 
close-keyword  [grammar]  14 
close-name  [grammar]  15 
close-paren-for-constant  [lexgram]  45 
close-return-polnt-unioue-to  [control]  86 
close-subprogram  [grammar]  3 
close-subprogram-body  [grammar]  3 
close-subprogram-start  [grammar]  3 
close-subprogram-term  [grammar]  3 
close-terminator-of  [control]  85 
close-unit-successor-of  [control]  86 
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collected-memory-value  [genassgn]  250 
comma  [grammar]  Hi 
comment  [grammar]  H? 
comment-char  [grammar]  H2 
common-block-element  [grammar]  5 
common-block-name  [grammar]  5 
common-declaration  [grammar]  5 
comparator-variable  [control]  95 
compared-variable-declaration  [eval]  168 
comparison-variable-value-of  [control]  92 
complemented  [impl]  215 
complete-for-clause  [grammar]  27 
complete-loop-header  [grammar]  26 
complex-statement  [grammar]  2H 
compool-body  [grammar]  H 

compool-common-decs-with-same-name-as  [adunaddr]  286 
compool-containing  [adunits]  280 
compool-element  [grammar]  H 
compool-header  [grammar]  H 
compool-name-list  [grammar]  2 
compound-statement  [grammar]  23 
computational-ef f ect-of  [control]  76 
condition-tested-by  [control]  114 
conditional-phrase-containing  [control]  114 
conditional-phrase-end-of  [control]  115 
conditional-statement  [grammar]  25 

conditional-statement-unit-successor-of  [control]  113 

conditional-successor-of  [control]  114 

conditional-test-point-of  [control]  112 

conformed-to-implementation-dp-word-size  [impl]  217 

conformed-to-implementation-word-size  [impl]  216 

conjunct  [grammar]  33 

conjunction  [grammar]  33 

conjunction-value  [eval]  148 

constant  [grammar]  37 

constant-type  [type]  174 

constant-value  [eval]  156 

constitutes-a-close-invocation  [control]  97 
context-sensitive-test-of-odd-modif iers-in  [ncf]  70 
context-sensitive-tests-of -returns-and-f or-clauses- 
of  [ncf]  67 

context-sensitive-tests-of -sequence-designator  [ncf] 

65 

contiguous-bits-ref-addr-at  [reladdr]  326 
contiguous-bytes-ref-addr-at  [reladdr]  321 
contiguous-next-byte-descriptor  [reladdr]  321 
contiguous-word-next-f Id-descriptor  [reladdr]  307 
contiguous-word-ref-addr-at  [adunaddr]  284 
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contiguous-word-ref-addr-of-length  [reladdr]  307 
control-lnput-of  [contexts]  234 
converted-f ixed-to-f ixed  [control]  81 
converted-f ixed-to-f loating  [eval]  169 
converted-fixed-to-lnteger  [eval]  169 
converted-f loating-to-flxed  [control]  81 
converted-f loating-to-lnteger  [eval]  169 
converted-integer-to-f ixed  [control]  81 
converted-integer-to-f loating  [eval]  169 
converted-to-binary-form  [impl]  229 
converted-to-implementatlon-floating-form  [impl]  221 
converted-to-implementation-form  [Impl]  222 
converted-to-rel-symbol  [eval]  154 
converted-to-standard-form  [impl]  215 
converted-to-string-form  [lexan]  59 
counterpart-declaration-for  [namedecl]  245 
counterpart-table-declaration-for  [namedecl]  246 
counterpart-table-ltem-declaration-for  [namedecl]  246 
create-standard-reference-address  [srefaddr]  252 
data-declaratlon  [grammar]  7 
data-seq-terminator-seq  [reladdr]  296 
data-sequence  [grammar]  12 
data-sequence-containing  [reladdr]  300 
data-sequence-initiator-dense-rel-addr  [reladdr]  328 
data-sequence-initiator-med-packed-rel-addr  [reladd'^] 
323 

data-sequence-initiator-of  [adunaddr]  291 
data-sequence-inltiator-rel-addr  [reladdr]  300 
decimal-digit  [grammar]  40 
declmal-fractlon-left-shif ted  [eval]  162 
decimal-integer-right-shifted  [eval]  160 
declraal-representation-of  [eval]  158 
decl-list  [grammar]  16 
decl-list-declaration  [grammar]  16 
declaration  [grammar]  7 
declaration-for  [namedecl]  245 
declaration-fractional-bits  [attr]  192 
declaration-integer-bits  [attr]  I83 
declaration-minimal-bits  [attr]  198 
declaratlon-pertaining-to  [eval]  166 
declaration-type  [type]  173 
declared-variable  [grammar]  35 
declares-loop-variable  [control]  124 
decremented-by-one  [impl]  215 
def-mark  [lexgram]  44 
default-declaration  [grammar]  6 
default-declarations-text  [lexan]  49 
default-mode-declaration  [lexan]  49 


index-6 


Page  lndex-7 

Specification  of  J0VIAL(J3) 
Index 


O^/IP/TY 
SEMANOL  Project 
Index 


default-rem-function  [lexan]  49 

default-reraquo-procedure  [lexan]  50 

default-successor-of  [control]  91 

default-switch-destination-unique-to  [control]  90 

default-text  [lexan]  49 

defaults  [grammar]  5 

defaults-of  [contexts]  233 

def ine-directive  [grammar]  28 

define-directlve-def ining  [lexan]  61 

def Ine-name-declared-ln  [lexan]  61 

def ined-entry-descriptlon  [grammar]  13 

def Ined-entry-ltem-declaratlon  [grammar]  13 

def ined-entry-table-declaration  [grammar]  10 

def ined-entry-table-packlng-spec  [srefaddr]  260 

def ined-item-entry-relative-addr  [srefaddr]  267 

deflned-name  [lexgram]  44 

deflnlens  [lexgram]  44 

deflniens-of  [lexan]  62 

dense-ailocated-name-addr-for  [reladdr]  330 
dense-char-shlf t [reladdr]  330 
dense-non-char-shlf t [reladdr]  331 
dense-ordlnary-table-ltem-addr  [reladdr]  330 
dense-packed-item-entry-relatlve-addr  [srefaddr]  262 
dense-shlf ted-addr-f rom-item-descriptor  [reladdr]  330 
descriptor-seq-for  [genassgn]  247 

deslgnate-the-same-allocated-variable  [srefaddr]  271 
designates-a-named-statement  [control]  98 
deslgnates-a-switch  [control]  88 
designates-an-index-switch  [control]  95 
designates-an-item-switch  [control]  92 
dest-name-seq  [ncf]  64 
destination-index  [grammar]  21 
destination-index-of  [control]  96 
destination-name  [grammar]  21 
destination-narae-of  [control]  90 
detailed-declaration-for  [namedecl]  245 
device-name  [grammar]  14 
difference  [grammar]  29 
difference-containing  [eval]  142 

difference-value  [eval]  140 
digits-of  [adunaddr]  282 

digits-shifted-in-from-fractional-part-of  [eval]  160 
digits-shlf ted-in-f rom-integer-part-of  [eval]  162 
dimension-bcunds-f rom  [reladdr]  308 
dimension-list  [grammar]  9 
dimension-list-of  [reladdr]  308 
dimension-product  [srefaddr]  269 

direct-assign  [grammar]  24 
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direct-code  [grammar]  25 
direct-statement  [grammar] 
directive  [grammar]  28 
disjunct  [grammar]  33 
disjunction  [grammar]  32 
disjunction-value  [eval]  147 
distributed-memory-assign  [genassgn]  247 
domain  [adunaddr]  294 
double-prime  [grammar]  40 
double-word-representation-of  [Impl]  222 
either-operand-ls-f ixed-ln  [type]  176 
elther-operand-is-f loat-ln  [type]  175 
elements-following  [adunaddr]  285 
elements-precedlng  [adunaddr]  288 
end-bracket  [grammar]  24 
end-keyword  [grammar]  11 
end-of-line-char  [ncf]  67 
entry-assign  [control]  79 
entry-compare  [eval]  149 
entry-compare-value  [eval]  149 
entry-rel-addr-of-bead  [srefaddr]  262 
entry-rel-addr-of-dense-allocated-name  [reladdr]  328 
en t ry -r e 1 -add r-of-dense-ovly -block -initiated -by 
[reladdr]  326 

entry-rel-addr-of-dense-structure-designated-by 
[reladdr]  325 

en t ry -r e 1 -add r -of -med -packed -allocated -name 
[reladdr]  323 

en try -rel-addr-of-med-packed-ovly -block-ini tiated- 
by  [reladdr]  320 

entry-re 1-add r-of -med-packed-structure-designated-by 
[reladdr]  320 

entry-rel -add r-of -unpacked -a llocated-name  [reladdr ] 
318 

en t ry-r e 1 -add r-of -unpacked -ovly -block- in it la ted -by 
[reladdr]  319 

en try-rel -add r-of -unpacked-st rue tu re-designated -by 
[reladdr]  318 

entry-relation  [grammar]  34 
entry-relation-value  [eval]  148 
entry-size  [control]  79 

entry-standard-reference-address  [srefaddr]  272 

entry-variable  [grammar]  37 

eol  [grammar]  42 

eol-char  [lexan]  62 

eol-or-comment  [lexgram]  46 

eols  [lexgram]  44 

eols-and-or-comments  [lexgram]  46 
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equality-relation-constant  [grammar]  3*1 
error-message  [ncf]  67 
evaluate  [eval]  131 

evaluate-special-boolean-operand  [eval]  131 
evaluation-ef fect-of  [eval]  131 
evaluation-successor-of  [eval]  129 
exchange-statement  [grammar]  20 
exchange-statement-effect-of  [control]  82 
exchange-statement-unlt-successor-of  [control]  82 
executable-unlt-successor-of  [control]  76 
expand  [lexan]  61 

expllclt-c3-declaration-for  [namedecl]  240 
exponent  [grammar]  38 
exponent-dif ference-of  [impl]  220 
exponent-part-of  [select]  205 
exponential  [grammar]  30 
exponential-value  [eval]  144 
exponentiated-floating-constant  [grammar]  38 
exponentiated-fractional-portion-from  [eval]  161 
exponentiated-lnteger-portion-f rom  [eval]  160 
extended-precision-form-of  [impl]  219 
fatal-lexical-error  [lexan]  62 
f leld-descriptor-of  [srefaddr]  252 

fleld-descriptor-sequence-implied-in  [genassgn]  247 
f leld-f Irst-bit-f rom  [srefaddr]  253 
f ield-f irst-blt-of  [srefaddr]  252 
file-declaration  [grammar]  13 
file-name  [grammar]  36 
file-name-of  [srefaddr]  275 
f lle-structure-speclf Ication  [grammar]  13 
f irst-allocated-name-for  [srefaddr]  270 
f irst-args-of  [control]  103 
first-bead-field-descriptor  [srefaddr]  263 
f irst-bit-addr  [reladdr]  326 

f irst-blt-positlon-indicated-in  [srefaddr]  274 
f irst-by te-addr  [reladdr]  321 
f irst-byte-blt-addr  [reladdr]  324 
first-byte-next-word-following  [reladdr]  331 
f Irst-byte-position-indicated-in  [srefaddr]  277 
first -common -dec-with-the-narae-of -this  [ adunaddr ] 

282 

first-data-sequence-of  [adunaddr]  292 
f Irst-descriptor-ln  [genassgn]  249 
first-dim-count  [reladdr]  308 
first-dim-of  [reladdr]  309 
first-evaluation-unit-in  [control]  122 

first-executable-unit-in  [control]  114 

f Irst-executable-unit-in-program  [control]  74 
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f irst-f  ield-first-bit-of  [srefaddr]  25^1 
f irst-index-formula-in  [select]  203 
first-index-value  [control]  96 
f irst-mention-of  [srefaddr]  272 
first-name-in-overlay  [reladdr]  299 
f irst-operand-expression-of  [select]  203 
first -operand -exp res Sion -of -boolean -operation  [select] 
204 

first-operand-expression-of-nuraeric-binary-operation 
[select]  204 

f ir St -operand -express ion -of -numeric-unary-operat ion 
[select]  204 

first -operand-express ion-of-relational-operat ion 
[select]  204 

f irst-overlay-mention-of  [srefaddr]  261 
f irst-ovly-dec-mentioning  [srefaddr]  271 
f irst-unit-in  [control]  124 
f irst-word-addr-in-memory  [adunaddr]  283 
f irst-word-addr-of-addressing-unit  [adunaddr]  28l 
f irst-word-addr-of-allocated-addressing-unit 
[adunaddr]  282 

first -word-addr-of-unallocated-addressing-unit 
[adunaddr]  28l 

f ix-basic-addr  [reladdr]  305 
fixed-add  [eval]  139 
fixed-constant  [grammar]  38 
f ixed-constant-exponent-of  [select]  207 
fixed-constant-value  [eval]  157 
fixed-item-description  [grammar]  8 
fixed-latest-value  [control]  81 
f Ixed-point-operand-of  [type]  177 

fixed-product  [eval]  143 
fixed-quotient  [eval]  144 
fixed-specifier  [grammar]  8 
f ixed-speclf ler-of  [attr]  187 
fixed-subtract  [eval]  141 
f loat-basic-addr  [reladdr]  304 
floating-add  [eval]  139 
floating-constant  [grammar]  38 
f loating-constant-f orm-of  [impl]  228 
floating-constant-value  [eval]  157 
f loating-exponent-from  [impl]  220 

f loating-exponent-of  [impl]  221 
floating-exponential  [eval]  145 
floating-exponential-value  [eval]  145 
floating-item-description  [grammar]  8 
floating-latest-value  [eval]  168 
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floatlng-mantissa-from  [Impl]  220 
floating-mantlssa-of  [impl]  222 
floating-part-of  [select]  206 
floating-product  [eval]  143 
floating-quotient  [eval]  144 
floating-subtract  [eval]  142 
floating-variable  [grammar]  36 
for-clause-contalning  [control]  118 
for-clause-dlrectly-referenced-by  [control]  123 
for-clause-referenced-by  [control]  122 
for-keyword  [grammar]  27 

formal-input-close-parameter  [grammar]  16 
formal-input-parameter  [grammar]  16 
formal-output-destination-parameter  [grammar]  17 
formal-output-parameter  [grammar]  17 
formula  [grammar]  32 
formula-comprising  [select]  205 
fraction-blts-count-of  [attr]  187 
fraction-bits-from  [attr]  178 
fraction-blts-sign-of  [attr]  187 
fraction-part-of  [eval]  161 

fraction -port ion-indicated-in- fixed -const ant  [ eval  ] 

161 

f ract ion -port ion- indicated -in-floating-const ant  [ impl  ] 
227 

f rac t ion-por t ion -o f -floa ting-con Stan t-ln-b inary 
[impl]  228 

fractional-blnary-representation-of  [impl]  217 
fractional-bits-designator  [grammar]  38 
f ractlonal-bits-f or-binary-op  [attr]  189 
fractional-blts-for-constant  [attr]  193 
f ractlonal-bits-for-dlf ference-of  [impl]  213 
fractional-blts-for-exponentlal  [attr]  191 
fractlonal-bits-for-function  [attr]  193 
f ractlonal-blts-for-product  [attr]  190 
fractlonal-bits-for-quotient  [attr]  190 
f ractional-bits-for-sum-or-dlf f erence  [attr]  190 
fractlonal-blts-for-unary-op  [attr]  191 
f ractional-bits-for-variable  [attr]  192 
fractional-bits-from-f ixed-item-description  [attr] 

192 

fractional-bits-from-f ixed-speclfier-of  [attr]  193 
fractional-bits-from-value-range-of  [attr]  193 
f ractional-bits-ln-result-of  [attr]  188 
fractional-portion-value  [eval]  I6l 
function-call  [grammar]  31 
function-item-declaration-for  [type]  171 
function-name  [grammar]  31 
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functlon-name-ln-reference  [type]  171 
function-type  [type]  171 
gap  [grammar]  41 
gen-baslc-addr  [reladdr]  305 
general-constant  [grammar]  19 
general-sign  [grammar]  39 
general-sign-string  [grammar]  39 
generalized-assign-latest-value  [genassgn]  247 
generalized-latest-value  [genassgn]  250 
go-to-statement  [grammar]  20 
has-a-declaring-mode-directive  [namedecl]  239 
has-a-destination-lndex  [control]  87 
has-a-f raction-part  [select]  206 
has-a-value-range  [attr]  185 
has-allowable-lef t-context  [lexan]  51 
has-an-expliclt-c3-declaration  [namedecl]  239 
has-an-exponent-part  [eval]  158 
has-an-initlal-statement-name  [control]  75 
has-an-integer-part  [select]  206 
has- just-one-case-expression  [control]  84 
has- just-one-optional-sequence-designator  [control  ] 
83 

has-no-output-args  [control]  106 
has-no-output-params  [control]  105 
has-one-f Ixed-and-one-lnteger-operand  [type]  176 
has-only-one-arg  [control]  103 
has-only-one-dimension  [reladdr]  309 
has-only-one-index  [control]  93 
has-value-less-than-zero  [control]  120 
have-common-loop  [ncf]  70 
have-values-in-relation  [control]  120 
hollerith-constant  [grammar]  39 
hollerith-constant-value  [eval]  165 
hollerith-f or  [eval]  165 
hollerith-item-description  [grammar]  9 
hollerith-map-pair-sequence  [eval]  166 
hollerith-text-of  [eval]  165 
hollerith-value-f or  [eval]  165 
if-either-alternative  [.-Ji^Hi'fiar]  25 
if-keyword  [grammar]  25 
implementation-compool  [grammar]  4 
implementation-control-input  [grammar]  2 
implementation-dependent-direct-code  [grammar]  24 
implementation-double-word-add  [impl]  220 
implementation-double-word-product  [impl]  224 
implementation-double-word-quotient  [impl]  225 
implementation-fixed-add  [impl]  209 
implementation-fixed-product  [impl]  210 
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implementation-fixed-quotient  [impl]  210 
implementation-fixed-subtract  [impl]  209 
implementation-floating-add  [impl]  219 
implementation-floating-compare  [impl]  211 
Implementation-floating-exponential  [impl]  226 
Implementation-floating-product  [impl]  223 
implementatlon-floating-quotient  [impl]  225 
Implementatlon-f loatlng-subtract  [impl]  209 
implementation-floating-zero  [impl]  222 
Implementation-hollerith-map-pair-sequence  [impl]  219 
implementation-initlal-value-at  [genassgn]  249 
implementation-lnteger-add  [impl]  208 
Implementation-integer-and-f Ixed-point-compare  [ impl  ] 

211 

Implementation-lnteger-bits-in-loop-variable  [impl] 

208 

implementation-integer-product  [impl]  210 
implementation-integer-quotient  [impl]  210 
implementation-integer-subtract  [impl]  209 
implementatlon-lnteger-zero  [impl]  208 
implementation-left-arithmetic-shift  [impl]  214 
implementation-library-procedure  [grammar]  3 
implementation-location-value-size  [impl]  208 
implementation-max-pos-functional-modif ier-size  [ impl ] 

208 

implementation-minlmal-blts-in-loc-f unction  [attr ] 

196 

imp lement a t ion -min imal-blts-ln-nwd sen -function  [attr ] 

196 

implementation-negated  [impl]  223 
implementation-negated-f loating  [impl]  223 
implementation-right-arithmetic-shift  [impl]  214 
implementation-special-exponential  [impl]  226 
implementation-standard-hollerith-map-pair-sequence 

[impl]  218 

implementation-status-compare  [eval]  151 
implicitly-f irst-refers-to-a-table  [adunaddr]  288 
implicitly-refer-to-same-table  [adunaddr]  289 
implied-declaration-for  [reladdr]  310 
incomplete-f orm-error-at  [lexan]  62 
increment-formula  [grammar]  28 
increment-formula-implied-by  [control]  121 
increment-formula-ref erenced-by  [control]  122 
Incremented-by-one  [impl]  216 
ind-ovly-dec-containlng  [reladdr]  296 
independent-overlay-declaration  [grammar]  14 
independent-statement  [grammar]  19 
independent-statement-of  [control]  115 
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index-count  [control]  96 

index-counts  [control]  92 

index-formula  [grammar]  35 

index-glven-in  [srefaddr]  273 

index-list  [grammar]  35 

Index-list-comprislng  [select]  203 

index-llst-of  [control]  93 

index-map  [srefaddr]  268 

index-offset  [srefaddr]  268 

Index-switch-declaration  [grammar]  18 

index-switch-designator-units-lmplied-in  [control]  83 

index-switch-list  [grammar]  18 

index-swltch-llst-of  [control]  82 

index-switch-1 is t-of -t railing-designators -in 

[control]  83 

index-swltch-point-selected-in  [control]  97 
index-switch-successor-of-designator  [control]  96 
index-values  [control]  93 

indexed-array-element-relative-address  [srefaddr]  268 
indexed-boolean-array-elt-addr  [srefaddr]  269 
indexed-deflned-item-relative-address  [srefaddr]  267 
Indexed-entry-standard-relative-address  [srefaddr]  273 
indexed-ordinary-item-relative-address  [srefaddr]  257 
indexed-standard-reference-address  [srefaddr]  256 
indexed-standard-relatlve-address  [srefaddr]  257 
indexed-string-item-relatlve-address  [srefaddr]  262 
indexed-variable  [grammar]  35 
inequality-relation-constant  [grammar]  34 
initial-formula  [grammar]  27 
initlal-number-part-of  [lexan]  54 
initial-statement-name  [grammar]  6 
initial-statement-name-of  [control]  75 
initiates-its-data-sequence  [reladdr]  299 
initlates-its-overlay  [reladdr]  297 
inner-close-body  [grammar]  15 
inner-close-body-of  [control]  85 

innermost-executable-statement-containing  [control]  91 
innermost-expression-containing  [eval]  136 
innermost-index-formula-containing  [eval]  140 
innermost-loop-containing  [ncf]  66 
innermost-operation-containing  [eval]  135 
innermost-proc-or-close-containing  [control]  108 
innermost-special-boolean-operation-containing  [eval  ] 

134 

input-keyword  [grammar]  22 
input-operand  [grammar]  22 
input-parameter-list  [grammar]  16 
input-parameter-list-of  [control]  102 


index- 1 4 


r 

1 


Page  index-15 

Specification  of  J0VIAL(J3) 
Index 


input-statement  [grammar]  22 
int-basic-addr  [reladdr]  304 
integer-add  [eval]  138 
integer-attributes  [attr]  202 

integer-attributes-of-converted-f loating  [attr]  202 
integer-bits-counted-in-constant  [attr]  188 
integer-bits-for-binary-op  [attr]  179 
integer-bits-for-constant  [attr]  188 
integer-bits-for-dif ference-of  [impl]  212 
integer-bits-for-exponential  [attr]  180 
integer-bits-for-fixed-decl  [attr]  186 
integer-bits-for-function  [attr]  188 
integer-bits-for-integer-decl  [attr]  184 
integer-bits-for-quotient  [attr]  179 
integer-bits-for-signed-f ixed-decl  [attr]  186 
integer-bits-for-signed-integer-decl  [attr]  184 
integer-bits-for-unary-op  [attr]  180 
integer-bits-for-unsigned-f ixed-decl  [attr]  186 
integer-blts-for-unsigned-integer-decl  [attr]  184 
integer-bits-for-variable  [attr]  I8l 
integer-blts-from  [attr]  178 

integer-bits-from-f ixed-item-description  [attr]  186 
integer-bits-f rom-f ixed-speclf ler-of  [attr]  187 
integer-bits-f rom-integer-item-description  [attr]  184 
integer-blts-from-integer-specif ler-of  [attr]  185 
Integer-bits-from-value-range-of  [attr]  185 
integer-bits-in-blt-functional-modif ier  [attr]  182 
integer-bits-in-result-of  [attr]  178 
integer-constant  [grammar]  37 
integer-constant-value  [eval]  162 
Integer-item-description  [grammar]  8 
integer-latest-value  [eval]  139 
Integer-operand-of  [type]  177 
integer-part-of  [select]  206 
integer-portion-indicated-in  [eval]  158 
integer-port ion-indicated -in -fixed -const ant  [eval  ] 

159 

in teger-portion-indicated-in-floa ting-constant  [ impl ] 

227 

integer-port ion -of "floating-constant-in-binary  [ impl  ] 

228 

integer-portion-value  [eval]  158 
integer-product  [eval]  142 
integer-result-of  [control]  118 
integer-specifier  [grammar]  9 
Integer-specif ier-of  [attr]  185 
integer-subtract  [eval]  141 
is-a-constant  [evalunit]  127 
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is-a-contiguous-word-ref-addr  [adunaddr]  284 
is-a-def ined-name  [lexan]  60 
is-a-derived-ovly-dec  [adunaddr]  286 
is-a-pattern-table  [namedecl]  244 
is-a-program-unit  [contexts]  232 
is-a-receiving-variable-only  [eval]  134 
is-a-return-from-a-procedure  [control]  108 
is-a-rigid-table  [attr]  198 
is-a-special-modif ier  [eval]  133 
is-a-special-variable  [type]  172 
is-a-status-formula  [eval]  151 
is-a-table-declaration  [namedecl]  244 
is-a-table-or-array-declaration  [control]  104 
is-a-true-adunit  [adunits]  279 
is-a-variable  [evalunit]  127 
is-a-variable-not-to-be-evaluated  [eval]  132 
is-absolute-overlay-declaration  [adunits]  280 
is-actual-output-data-parameter  [control]  106 
is-actually-a-literal-relation  [eval]  152 
is-actually-a-numeric-relation  [eval]  154 
is-actually-a-status-relation  [eval]  149 
is-actually-allocated-ln-entry  [reladdr]  315 
is-actually-to-be-allocated  [adunaddr]  287 
is-allocated-addresslng-unit  [adunits]  278 
is-allocated-prime-overlay-initiator  [adunaddr]  290 
is-allocation-name  [adunaddr]  290 
is-alternatlve-test-polnt  [control]  112 
is-an-actual-program-context  [contexts]  232 
is-an-addressing-unit  [adunaddr]  281 
is-an-allocated-addressing-unit  [adunaddr]  282 
is-an-evaluated-atomic-formula  [select]  205 
is-an-evaluated-entity  [select]  204 
Is-an-evaluated-expression  [select]  205 
Is-an-evaluated-formula  [eval]  136 
is-an-executable-statement  [control]  124 
is-an-outermost-program-unlt  [contexts]  233 
is-an-unallocated-addresslng-unlt  [adunaddr]  281 
is-argumentless-proc-call  [control]  102 
is-array-reference  [reladdr]  307 
is-assigned-status-constant  [eval]  167 
is-atomlc-assignment  [eval]  167 
is-attribute  [aux2]  231 
is-blt-functlonal-modif ier  [attr]  182 
is-boolean-operation  [evalunit]  128 
is-branch-control-unit-of-loop-statement  [control  ] 
117 

is-byte-functional-modlf ier  [eval]  133 
Is-call-by-name-argument  [control]  104 
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is-call-by-name-formal  [control]  104 
is-call-by-name-table-item-reference  [srefaddr]  256 
is-category-1-declaration  [namedecl]  235 
ls-category-2-declaration  [namedecl]  235 
ls-category-3-declaration  [namedecl]  238 
is-chain-relation-operand  [eval]  135 
is-char-functional-modif  j.er  [attr]  182 
is-comparison-status-constant  [eval]  168 
Is-conditional-test-point  [control]  112 
is-conjunction-or-dls junction-operand  [eval]  135 
is-contained-in-a-special-boolean-expression  [eval  ] 
135 

is-contalned-in-a-special-modif ier  [eval]  133 
is-contained-in-a-subordinate-ovly-dec  [reladdr]  316 
is-contained-in-an-expression  [eval]  136 
is-contained-in-an-index  [eval]  139 
Is-contextually-syntactically-valid  [ncf]  64 
is-data-declaratlon  [namedecl]  241 
is-data-seq-terminator  [reladdr]  296 
is-declared  [namedecl]  235 
is-declared-implicitly  [namedecl]  243 
is-declared-in-category-1-decl  [namedecl]  235 
is-declared-in-category-2-decl  [namedecl]  235 
is-declared-in-category-3-decl  [namedecl]  238 
is-declared-subordinate-item-name  [reladdr]  318 
is-def ined-entry-item-ref erence  [srefaddr]  266 
is-def ined-entry-table-ref erence  [reladdr]  311 
is-densely-packed  [srefaddr]  262 
is-entry-allocation-name  [reladdr]  315 
is-explicit-category-3-declaration  [namedecl]  241 
is-explicitly-named  [adunaddr]  289 
is-extended-precision-f orm  [impl]  226 
is-f ile-name-or-status-variable  [eval]  150 
is-f ile-or-status-declaration  [eval]  150 
is-f irst-common-dec-with-its-name  [adunits]  278 
is-f ir St -common -dec -with -its -name-in -a-compool 
[adunits]  279 

is-f Irst-in-addresslng-unit  [reladdr]  301 
is-f irst-in-ordinary-entry  [reladdr]  319 
is-f irst-level-statement  [control]  73 
is-f irst-reference-to-a-declared -variable  [adunaddr] 
293 

is-formal-output-data-parameter  [control]  106 
is-function-reference  [evalunlt]  128 
is-greater-in-value  [control]  120 

Is-implementatlon-double-word-numerlc-representation 
[aux2]  230 

is-implementatlon-numeric-representation  [aux2]  230 


index-17 


i 


Page  index-18 

Specification  of  J0VIAL(J3) 
Index 


07/12/77 
SEMANOL  Project 
Index 


is-in-common  [adunaddr]  288 
is-in-some-proc-decl  [ncf]  67 

is-index-control-unit-of-loop-statement  [control  ] 

117 

is-initial-part-of-literal-constant  [lexan]  52 
is-less-in-value  [control]  120 
is-like-declared  [namedecl]  245 
is-like-declared-table  [reladdr]  311 
is-literal-ob ject  [eval]  152 
is-loop-variable  [attr]  181 
is-mant-functional-modifier  [eval]  133 
is-med-packed  [srefaddr]  261 

is-med-packed-string-declaration  [srefaddr]  265 
is-mentioned  [adunaddr]  293 

is-mentioned-in-a-subordinate-ovly-dec  [reladdr]  317 
is-mode-declared  [reladdr]  303 
is-modified-by-special-modif ier  [eval]  133 
is-negative-f loating-representation  [impl]  212 
is-nent-functional-modif ier  [attr]  182 
is-not-control-parameter  [reladdr]  302 
is-not-f loating  [ncf]  70 

is-not-formal-parameter-name  [namedecl]  242 
is-not-in-a-procedure-declaration  [namedecl]  238 
is-not-in-comraon  [adunaddr]  288 
is-not-in-loop  [ncf]  66 
is-not-syntactically-valid  [ncf]  64 
is-not-terminator  [control]  75 
is-not-the-outermost-context  [namedecl]  237 
is-not-to-be-evaluated  [eval]  132 
is-numeric-binary-operation  [evalunit]  127 
is-numeric-ob ject  [eval]  155 
is-numeric-operation  [evalunit]  127 
is-numeric-type  [control]  110 
is-numeric-unary-operation  [evalunit]  128 
is-odd-functional-modif ier  [eval]  133 
is-operation-or-primitive-operand  [evalunit]  127 
is-ordinary-item-reference  [srefaddr]  257 
is-ordinary-table-reference  [reladdr]  310 
is-overlay-initiator  [adunaddr]  291 
is-packed-string-declaration  [srefaddr]  263 
is-parallel-table  [srefaddr]  258 
is-parameterless-procedure  [control]  101 
is-pos-functional-modif ier  [attr]  182 
is-positive-f loating-representation  [impl]  211 
is-prime-initiator  [adunaddr]  292 
is-prime-overlay-initiator  [adunaddr]  290 
is-prime-subord-initiator  [reladdr]  317 
is-prime-subordinate-overlay-initiator  [reladdr]  316 
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I is-program-name  [ncf]  66 

[ is-properiy-declared  [namedecl]  2^12 

I is-relational-operation  [evalunit]  128 

I is-semanol-base-2-integer-constant  [aux2]  231 

is-simple-item-reference  [reladdr]  306 

is-special-boolean-operand  [eval]  13^ 
is-special-boolean-operation  [eval]  13^ 
is-special-exponential  [eval]  144 
; Is-special-index-dif ference  [eval]  141 

I - is-speclal-index-sum  [eval]  138 

Is-speclal-variable  [attr]  200 
Is-status-declaratlon  [eval]  150 
; Is-strlng-item-reference  [srefaddr]  262 

[ ' Is-strlng-of-ones-and-zeroes  [aux2]  230 

■ Is-subord-overlay-inltlator  [reladdr]  316 

j Is-tabular-name  [ncf]  68 

! Is-tabular-name-or-nil  [ncf]  68 

f is-that-of-a-call-by-name-parameter  [reladdr]  301 

f Is-to-be-done-ln-f loatlng-form  [type]  175 

j is-true  [control]  115 

Is-typed-data-declaratlon  [eval]  150 
Is-typed-data-reference  [eval]  151 
is-unique-to-a-close  [control]  85 
is-unique-to-a-procedure  [control]  99 

is-unit-unique-to-alternative-statement  [control]  112 
is-unit-unique-to-conditional-statement  [control]  112 
is-unlt-unique-to-go-to-statement  [control]  86 
is-unpacked  [srefaddr]  260 

Is-unpacked-strlng-declaratlon  [srefaddr]  264 
Is-unsigned  [attr]  199 
is-unsigned-blnary-op  [attr]  200 
Is-unsigned-constant  [attr]  201 
is-unsigned-declaration  [attr]  201 
is-unslgned-function-ref erence  [attr]  201 
Is-unslgned-speclal-variable  [attr]  200 
is-unsigned-unary-op  [attr]  200 
Is-unsigned-variable  [attr]  200 
is-var-plus-or-minus-constant  [eval]  140 
is-zero-f loating-representation  [Impl]  211 
item-description  [grammar]  7 
Item-descrlption-of  [type]  174 
item-keyword  [grammar]  7 
Item-switch-case-expression  [grammar]  19 
item-swltch-case-expression-of  [control]  84 
item-switch-declaration  [grammar]  18 
Item-switch-designator-units-lmplled-ln  [control]  84 
item-switch-list  [grammar]  19 
item-switch-list-of  [control]  84 
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itera-switch-list-of-trailing-cases-of  [control]  84 
Item-switch-polnt-selected-ln  [control]  94 
item-switch-successor-of-designator  [control]  92 
jovlal-j3-program  [grammar]  2 
jovial-j3-system  [grammar]  2 
last-allocated-name-in  [adunaddr]  284 
last-allocated-name-in-entry-of  [reladdr]  315 
last-arg-of  [control]  103 
last-bit-addr  [reladdr]  329 

last-bit-addr-f rom-f ield-descriptor  [reladdr]  329 
last-bit-addr-in-dense-ovly-blk-at  [reladdr]  327 
last-bit-ref-addr-of  [srefaddr]  277 
last-by te-addr  [reladdr]  324 

last-byte-addr-in-med-packed-ovly-blk-at  [reladdr] 

322 

last-char-posn-determined-by  [lexan]  54 
last-char-posn-in  [lexan]  52 
last-comment-char-posn-in  [lexan]  53 
last-literal-constant-char-posn-in  [lexan]  54 
last-seg-of  [control]  116 

last-status-constant-char-posn-in  [lexan]  53 
last-word-addr  [adunaddr]  283 
last-word-addr-from-contiguous-word-ref-addr 
[adunaddr]  284 

last-word-addr-in-overlay-block-initiated-by 
[reladdr]  295 

1 as t -word -add r- in-unpacked -ovly-blk -at  [reladdr ] 

319 

last-word-addr-of-addressing-unit  [adunaddr]  283 
latest-memory-value  [genassgn]  249 
latest-value  [eval]  131 
latest-value-assigned-to  [control]  89 
latest-value-of-variable  [control]  118 
lef t-hand-side-of  [control]  78 

left-justif ied-literal-basic-addr  [reladdr]  306 
left-operand-of  [eval]  156 

length-of-overlay-block-inltiated-by  [reladdr]  295 
length -of -unpacked -over lay -block -Initiated -by 
[reladdr]  319 
letter  [lexgram]  43 

library-close-subprogram-ref erred-to-by  [control]  89 
library -procedure -subprog ram-corresponding- to  [eval  ] 
130 

like-table-declaration  [grammar]  10 
like-table-packlng-spec  [srefaddr]  260 
like-table-structure-spec  [srefaddr]  258 
list-begin-bracket  [grammar]  41 
list-end-bracket  [grammar]  41 
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list-of-status-constants-ln  [eval]  166 
literal-assign  [control]  80 
llteral-basic-addr  [reladdr]  305 
literal-compare  [eval]  154 
llteral-compare-value  [eval]  152 
literal-length-determined-by  [lexan]  55 
literal-next-field-descriptor  [reladdr]  306 
literal-relation-value  [eval]  152 
loc-function  [grammar]  30 
loc-functlon-value  [eval]  146 
loc-name  [grammar]  31 
loc-name-of  [eval]  147 
loop  [ncf]  66 
loop-body-of  [control]  117 
loop-control-variable-in  [control]  118 
loop-header-of  [control]  117 
loop-range-ls-satisf ied-f or  [control]  119 
loop-statement  [grammar]  26 
loop-statement-containing  [control]  119 
loop-statement-ef f ect-of  [control]  117 
loop-statement-unit-successor-of  [control]  119 
loop-var-of  [ncf]  70 
loop-variable  [grammar]  41 
loop-variable-constituting  [srefaddr]  274 
loop-variable-of  [control]  123 
magnitude-bits  [impl]  214 
main-program-of  [control]  71 
mant-modif ier-reference-using  [srefaddr]  276 
mark  [grammar]  40 
match  [adunaddr]  293 

matches-the-overlay-initiator  [adunaddr]  292 
maximal-addr-of  [reladdr]  296 

maximal-bit-addr-of-densely-packed  [reladdr]  327 
maxlmal-by te-addr-of-med-packed  [reladdr]  322 
maximum  [attr]  178 
maxlmum-bit-addr  [reladdr]  327 

med-packed-allocated-name-addr-for  [reladdr]  324 
med-packed-item-entry-relative-addr  [srefaddr]  261 
med-packed-ordlnary-table-item-addr  [reladdr]  325 
med-packed-shlfted-addr-from-item-descriptor 
[reladdr]  325 

mlnimal-bits-for-binary-op  [attr]  194 
minlmal-bits-for-constant  [attr]  199 
minimal-blts-for-dif ference-of  [impl]  213 
minlmal-bits-for-exponential  [attr]  196 
minlmal-bits-for-function  [attr]  199 
minimal-blts-for-product  [attr]  195 
minimal-blts-for-quotient  [attr]  195 
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rainimal-bits-for-sum-or-dif ference  [attr]  195 
minimal-bits-for-unary-op  [attr]  196 
minimal-bits-for-variable  [attr]  197 
minimal-bits-f rom  [attr]  178 
minimal-bits-from-item-description  [attr]  198 
minimal-bits-from-value-range-of  [attr]  198 
minimal-bits-in-bit-functional-modifier  [attr]  197 
minimal-bits-in-nent-functional-modif ier  [attr]  197 
minimal-bits-in-result-of  [attr]  193 
minimum  [attr]  178 
mode-directive  [grammar]  28 
mode-directive-declaring  [namedecl]  241 
mode-keyword  [grammar]  29 
modified  [lexan]  57 

modif led-for-parallel-table  [srefaddr]  259 

modified-for-serial-table  [srefaddr]  259 

name  [grammar]  40 

name-declared-by  [namedecl]  236 

name-declared-in  [namedecl]  242 

name-in  [ncf]  69 

name-letter  [grammar]  40 

name-of  [control]  89 

name-of-proc  [eval]  130 

name-token  [lexgram]  43 

named-statement-successor-of  [control]  98 
names-in-data-seq  [reladdr]  300 

nearest-prior-overl ay-ref erence-to  [reladdr]  299 

nearest-prior-subord-ovly-ref erence-to  [reladdr]  298 

negation  [grammar]  33 

negation-value  [eval]  148 

nent-modif ier-ref erence-of  [srefaddr]  275 

nent-size  [attr]  182 

nent-word-f leld-descriptor  [srefaddr]  276 
next  [contexts]  233 

next-bead-field-descriptor  [srefaddr]  263 
next-binary-dlgit-from  [Impl]  217 
next-bit-after  [reladdr]  329 
next-byte-after  [reladdr]  324 
next-byte-at-or-following  [reladdr]  330 
next-byte-this-word-following  [reladdr]  331 
next-f ield-descriptor-of  [srefaddr]  253 
next-f ield-f irst-bit-f rom  [genassgn]  248 
next-raed-packed-bead-f ield-descriptor  [srefaddr]  265 
next-outer-context  [contexts]  233 
next-packed-bead-field-descriptor  [srefaddr]  264 
next-token-in  [lexan]  60 

next-unpacked-bead-f ield-descriptor  [srefaddr]  264 
next-word-address-from  [genassgn]  248 
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next-word-f irst-bit-following  [reladdr]  330 
nil  [grammar]  18 

nominal-size-specif ier-of  [reladdr]  312 
non-context-free-error-is-present-in  [ncf]  64 
normalized  [impl]  221 

normalized-floatlng-add-process  [impl]  219 
normalized-floating-product-process  [impl]  224 
normalized-f loatlng-quotient-process  [impl]  225 
normallzed-literal  [eval]  153 
normalizing-left-shift-for  [impl]  222 
nr-bytes-in-wd-before  [reladdr]  322 
nr-of-beads-left-ln-word-from  [srefaddr]  266 
nr-of-beads-lef t-in-word-of  [srefaddr]  266 
nr-of-beads-per-word-of  [srefaddr]  266 
nr-of-bits-in  [srefaddr]  253 
nr-of-bits-in-field-from  [srefaddr]  253 
nr-of-bits-ln-field-of  [srefaddr]  252 
nr-of-bits-in-next-f ield-from  [srefaddr]  254 
nr-of-bits-ln-next-f ield-of  [srefaddr]  255 
nr-of-blts-lndlcated-in  [srefaddr]  274 
nr-of-by tes-indicated-in  [srefaddr]  277 
nr-wds-per-entry-in  [srefaddr]  273 
nr-words-per-dense-entry  [reladdr]  325 
nr-words-per-en try- in -defined -entry -table  [reladdr ] 
314 

nr-words-per-entry-in-like-table  [reladdr]  313 
nr-words-per-entry-in-ordinary-table  [reladdr]  314 
nr-words-per-med-packed-entry  [reladdr]  320 
nr-words-per-unpacked-entry  [reladdr]  314 
null-next-field-descriptor  [srefaddr]  275 
number-of-blts-ln  [attr]  188 
number-of-columns-in-array  [reladdr]  308 
number-of-elements-per-cclumn-of-array  [reladdr]  310 
nuraber-of-entries-of  [reladdr]  312 
number-of-entries-of-llke-table  [reladdr]  312 
number-of-words-in-array  [reladdr]  308 
number-of-words-in-def ined-entry-table  [reladdr]  311 
number-of-words-ln-like-table  [reladdr]  312 
number-of-words-ln-ordinary-table  [reladdr]  310 
number-of-words-per-column-of-array  [reladdr]  309 
number-of-words-per-entry-in  [reladdr]  313 
numeral  [grammar]  37 
numeric-arg-asslgn  [control]  110 
numeric-assign  [control]  80 
numerlc-blnary-op-type  [type]  170 
numeric-binary-operation-value  [eval]  137 
numeric-compare-value  [eval]  155 
numeric-constant  [grammar]  37 
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numeric-expression  [grammar]  29 
numeric-factor  [grammar]  30 
numeric-form  [lexgram]  43 
numeric-formula  [grammar]  29 
numeric-formula-of  [control]  118 
numeric-primary  [grammar]  30 
numeric-relation-value  [eval]  155 
numeric-term  [grammar]  29 
numeric-unary-op-type  [type]  170 
numeric-unary-operation-value  [eval]  146 
numeric-variable  [grammar]  36 
nwdsen-constant-size  [attr]  180 
nwdsen-functlon  [grammar]  30 
nwdsen-function-value  [eval]  146 
object-varlable-of  [type]  173 
occurs  [ncf]  68 
octal-constant  [grammar]  38 
octal-constant-value  [eval]  162 
octal-digit  [grammar]  40 
odd-keyword  [grammar]  36 

one-dlmenslonal-constant-list  [grammar]  12 
one-factor-for-clause  [grammar]  27 
one-factor-loop-header  [grammar]  26 
one-for-nent-word  [reladdr]  311 
one-word-ref erence-address-at  [reladdr]  302 
ones  [eval]  159 

open-input-statement  [grammar]  23 
open-keyword  [grammar]  23 
open-output-statement  [grammar]  23 
open-paren-for-constant  [lexgram]  45 
operandl-of  [select]  203 
operand2-of  [select]  203 

optlonal-actual-input-parameter-llst  [grammar]  31 
optional-actual-input-parameter-list-of  [control]  102 
optional-basic-structure-specification  [grammar]  11 
optional-common-block-name  [grammar]  5 
optional-common-block-name-of  [adunits]  280 
optional-compools  [grammar]  4 
optional-control-input  [grammar]  2 
optlonal-decl-list  [grammar]  16 
optional-decl-list-of  [type]  172 
optional-f ixed-value-range  [grammar]  8 
optional-formal-parameter-list  [grammar]  15 
optional-f ormal-parameter-list-of  [control]  101 
optional-initial-statement-name  [grammar]  6 
optional-inltial-statement-name-of  [control]  75 
optional-input-parameter-list  [grammar]  16 
optional-input-parameter-llst-of  [control]  102 
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optional-integer-value-range  [grammar]  8 
optional-library  [grammar]  2 
optional-library-of  [control]  90 
optional-numeral  [grammar]  9 
optlonal-one-and-two-factor-for-clause-llst 
[grammar]  27 

optional-one-dimensional-constant-llst  [grammar]  12 
optional-one-factor-for-clause-list  [grammar]  26 
optional-origin  [grammar]  14 
optional-packlng-speclf Ication  [grammar]  11 
optional-packlng-speclf ication-of  [srefaddr]  264 
optional-rounding-specifier  [grammar]  8 
optional-sequence-designator  [grammar]  18 
optlonal-sequence-deslgnator-of  [control]  83 
optional-sign  [grammar]  38 
optional-statement-name-list  [grammar]  19 
optional-statement-name-llst-of  [namedecl]  236 
optional-structure-specificatlon-of  [srefaddr]  258 
optional-table-name  [grammar]  11 
optional-table-slze-speclf Ication  [grammar]  11 
optional-table-slze-specificatlon-of  [attr]  183 
optional-template-declarations  [grammar]  5 
optlonal-template-declarations-of  [type]  172 
optional-two-dlmenslonal-constant-llst  [grammar]  13 
optlonal-value-range-of  [attr]  185 
optionally-signed-constant  [grammar]  37 
optionally-signed-intet^er-constant  [grammar]  37 
or-lf-alternative  [grammar]  26 
ord-ltem-entry-relatlve-addr  [srefaddr]  259 
ordinary-entry-description  [grammar]  11 
ordlnary-entry-descriptlon-of  [reladdr]  316 
ordinary-table-dec-containing  [reladdr]  318 
ordinary-table-declaration  [grammar]  10 
ordinary-table-item-declaration  [grammar]  12 
ordinary-table-packing-spec  [srefaddr]  260 
origin-speclf ler-of  [adunaddr]  282 
outermost-numerlc-operation-in  [eval]  140 
output-arg-assign  [control]  109 
output-arg-assign-from  [control]  109 
output-argument-passed-to  [control]  109 
output-keyword  [grammar]  22 
output-operand  [grammar]  22 
output-parameter-list  [grammar]  17 
output-parameter-list-of  [control]  105 
output-statement  [grammar]  22 
overlay-block-derlved-by  [adunaddr]  286 
overlay-declaration-containing  [reladdr]  300 
overlay-decs-in-adunlt-followlng  [adunaddr]  285 
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overlay-element-dense-rel-addr  [reladdr]  328 
overlay-element-med-packed-rel-addr  [reladdr]  323 
overlay-element-rel-addr  [reladdr]  297 
overlay-initiator-dense-rel-addr  [reladdr]  328 
overlay-lnitiator-med-packed-rel-addr  [reladdr]  323 
overlay-inltiator-of  [adunaddr]  291 
overlay-lnitlator-rel-addr  [reladdr]  297 
overlay-keyword  [grammar]  12 
overlay-origin  [adunaddr]  28l 
overlay-reference-to  [reladdr]  299 
overlay-specification  [grammar]  12 
overlay-speciflcation-of  [adunaddr]  291 
ovly-decs-ln-block-inltiated-by  [reladdr]  295 
ovly-decs-in-block-rooted-by  [adunaddr]  285 
packl Tg-spec-of  [srefaddr]  260 
padded-literal-value  [eval]  153 

parent-table-standard-reference-address  [srefaddr]  257 
parsed-as-a-token-string  [lexan]  58 
pass-across  [lexan]  60 
pattern-table-decl-for  [namedecl]  243 
pattern-table-for  [namedecl]  244 
point-designated-by  [ncf]  66 
pos-modifier-reference-using  [srefaddr]  275 
pos-of-f irst-non-zero-char-in  [impl]  216 
position-last-char-of-first-form-in  [lexan]  52 
position-of  [eval]  166 
position-of-first-form-in  [lexan]  50 
postorder-sequence-for-segs-of  [control]  125 
postorder-sequence-of-nodes-in  [control]  125 
potential-item-decs-for  [type]  171 
preceding  [adunaddr]  283 

preceding-this-allocated-name  [reladdr]  302 
preceding-t his -allocated -or dinary -entry -name  [reladdr ] 
319 

preceding-thls-nm-in-lts-data-sequence  [reladdr]  300 
prelimlnary-fractional-bits-for-quotient  [attr]  191 
prime  [grammar]  40 

prime-overlay-lnitlator-rel-addr  [reladdr]  298 
primitive  [lexgram]  43 
proc-keyword  [grammar]  15 
proc-statement-list  [grammar]  17 
proc-terminator-of  [control]  99 
procedure-body  [grammar]  17 
procedure-body-of  [type]  172 
procedure-call-effect-of  [control]  100 
procedure-call-statement  [grammar]  21 
procedure-call-successor  [control]  101 
procedure-containing  [control]  99 
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procedure-dec-invoked-corresponding-to  [eval]  129 
procedure-decl-invoked-by  [eval]  129 
procedure-declaration  [grammar]  15 
procedure-end  [grammar]  17 
procedure-head  [grammar]  15 
procedure-head-of  [type]  172 
procedure-name  [grammar]  15 
procedure-return-effect-of  [control]  108 
procedure-return-point-unique-to  [control]  100 
procedure-stmt-list-of  [control]  99 
procedure-subprogram  [grammar]  3 
procedure-subprogram-body  [grammar]  3 
procedure-subprogram-start  [grammar]  4 
procedure-subprogram-term  [grammar]  4 
procedure-unit-successor  [control]  99 
process-declaration  [grammar]  14 
processed-wrt-defines  [lexan]  58 
product  [grammar]  29 
product-containing  [eval]  143 
product-value  [eval]  142 
program  [grammar]  6 
program-body-of  [control]  75 
program-context  [contexts]  232 
program-declaration  [grammar]  14 
program-name  [grammar]  14 
program-unit-containing  [contexts]  233 
quotient  [grammar]  29 
quotient-containing  [eval]  144 
quotient-value  [eval]  143 
range-constant  [grammar]  8 
range-high-value  [attr]  185 
range-low-value  [attr]  198 
receiving-variable-declaration  [eval]  167 
receiving-variable-of  [eval]  134 
record-ncf-error  [ncf]  67 

ref-addr-of-allocating-instance-of  [srefaddr]  270 
ref-addr-passed-to  [control]  109 
references-a-common-variable  [adunaddr]  287 
references-a-table-item  [adunaddr]  290 
references-an-overlay-variable  [adunaddr]  292 
refers-to-an-allocated-name  [srefaddr]  271 
relation  [grammar]  34 
relation-constant  [grammar]  34 
relation-constant-of  [select]  205 
relation-formula  [grammar]  33 
relation-value  [eval]  149 
relation-wlth-floating-zero-of  [impl]  211 
relatlon-with-integer-zero-of  [impl]  212 
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relational-operand  [grammar] 
relational-operation-value  [eval]  148 
relative-addr  [srefaddr]  272 

relatlve-addr-of-allocated-name  [reladdr]  300 
relative-addr-of-overlay-block-lnitiated-by  [reladdr] 
295 

r e la tive-addr-of -structure-designated -by  [reladdr ] 

295 

replace-all-occurrences-of  [lexan]  49 
replacing-bits-ln-fleld  [srefaddr]  269 
replacing-f ield-descrlptor  [srefaddr]  253 
replacing-f ield-flrst-bit  [srefaddr]  252 
replaclng-first-blt  [reladdr]  326 
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